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ABSTRACT 

The Asilomar Conference on Signals, Systems and Computers is a technical 
conference dealing in signal and image processing, communications, sensor systems, and 
computer hardware and software. Sponsored by the Naval Postgraduate School and San 
Jose State University, in cooperation with the IEEE Signal Processing Society, the 
conference is held annually at the Asilomar Conference Facility in Pacific Grove, 

California. Although the Asilomar Conference is oriented toward computers and new 
technology, it has yet to exploit the full capabilities of the Internet. 

The purpose of this thesis is to: 

a. Analyze the processes involved in the Asilomar Conference on Signals, 

Systems, & Computers, 

b. Improve the article submission and review process, 

c. Outline a target information system, 

d. Implement a portion of the target system. 

Two major portions of the target system are implemented using an IBM compatible 
PC: 1) the ability for authors to submit abstracts and summaries via the Internet, 2) to 
allow conference administrators to manage the database via the Internet. Dynamic 
World Wide Web pages are created using Borland Delphi as the programming base, 

O’Rielly’s WebSite as the web server, and two Common Gateway Interface elements for 
Delphi recently developed by Arm Lyrmworth of HREF Tools Corp. The portions 
implemented lay the foundation for a system that could revolutionize the way 
conferences are conducted by unleashing the power of the Internet. 
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I. INTRODUCTION 



The Asilomar Conference on Signals, Systems and Computers is a technical 
conference dealing in signal and image processing, communications, sensor systems, and 
computer hardware and software. Sponsored by the Naval Postgraduate School and San 
Jose State University, in cooperation with the IEEE Signal Processing Society, the 
conference is held annually at the Asilomar Conference Facility in Pacific Grove, 
California. 

A. OBJECTIVES 

The objectives of this Thesis are to; 

1) Analyze the processes involved in Asilomar Conference on Signals, 

Systems, & Computers, 

2) Improve the article submission and review process, 

3) Outline a target information system, 

4) Implement a portion of the target system. 

B. OUTLINE 



Section II covers background material such as, a description of the Asilomar 
Conference and its organization, the submission process for authors submitting papers. 
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and the article review and acceptance process. The system development process is 
explained in Section HI. The following steps were used in our development 
methodology: 

1 ) Develop a baseline assessment - what exists now, how is it being used, 
and what users would like to see improved. 

2) Define the target system - compile the information gathered during the 
baseline assessment and develop a system that improves the process for 
all concerned. 

3) Select a migration path - decide how to move from the existing system to 
the target. 

Section IV discusses the implementation of the target system. This section also 
includes system flow diagrams and a description of every program element that comprise 
the target system. Conclusions and recommendations for further enhancements to the 
system are covered in Section V. 
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n. BACKGROUND 



Three views will be presented to develop a detailed understanding of the present 
conference system: 1) an outline of the procedures required to conduct a conference; 2) a 
description of the structural organization of the different committees which guide the 
conference; and 3) an overview of the processes from the participants’ perspective. 



A. CONFERENCE OVERVIEW 



Approximately one year before the conference convening date, the Conference 
publishes a “call for papers” to solicit articles for presentation. Interested individuals 
submit an abstract and summary of the articles they propose to present. A few months 
before the conference convenes, the collected submissions are reviewed for acceptance. 
Selected article abstracts are published in a “Final Program and Abstract Catalog.” The 
catalog is distributed to potential attendees to generate interest in the conference and 
provide an idea of the topics to be covered. 

The actual conference takes place over a three-day period, with four half-days of 
presentations. Presentations are organized by topic area into sessions, with eight sessions 
going on simultaneously during each half-day. Each session will have 6-8 oral 
presentations or up to 16 poster presentations. If the number of presentations for a given 
topic is insufficient to fill an entire moming/aftemoon, the session may be split into two 
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half-sessions. On average, about seventy presentations are given each half-day. Because 
eight sessions run concurrently, attendees are not able to hear every article presented. 
Following the conference, each registered participant is mailed a set of conference 
proceedings containing articles presented at the conference. 



B. STRUCTURAL ORGANIZATION OF THE CONFERENCE 



The conference is guided by two volunteer committees; 1) the conference 
committee and 2) the steering committee. Both are staffed by technical experts in the 
various fields of signal processing. The conference committee includes the Publicity, 
Publication, Coordination, and Technical Program Chairpersons (Chairs). The Technical 
Program Chair heads the Technical Program Committee which has final responsibility 
for developing the technical program and publishing the Proceedings. The Technical 
Program Committee structure is shown in Figure 2-1. Principal tasks of the Technical 
Program Chair, responsible for the technical content of the conference, include 
determining which topics are to be included in the “Call for Papers” and presiding over 
the review process. Responsibility for specific topic areas is delegated down to 6-7 
Technical Area Chairs (TACs). Their primary task is to review submitted articles within 
their area and select those best suited for presentation. Each TAC is assisted by several 
Session Chairs who coordinate and schedule the individual sessions. Sessions Chairs 
invite 3-4 papers on topics which they feel are of particular interest. These “invited” 
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papers are automatically selected for presentation and are not subject to review. 

The Steering Committee’s role is to guide the long term goals of the conference. 
Its main contribution is to nominate the General Chair and the other conference 
committee Chairs. However, the Steering Committee is not directly involved with the 
technical program setup, therefore it is not discussed further in this document. 



C. PROCEDURAL FLOW OF THE CONFERENCE 



Participants in the Conference can be divided into four roles; attendees, authors, 
organizers, and reviewers. Organizers conduct the required administrative functions, 
reviewers select articles for presentation, authors write articles and make presentations, 
and attendees attend the conference. Each of these roles is accompanied by a distinct set 
of procedures that must be completed. A particular individual may fill more than one 
role. 



1. Attendees 

Attendees begin their participation by gathering information about the 
upcoming conference. Information is obtained on-line via an established World Wide 
Web (WWW) homepage or off-line via an established mailing list. Registration is done 
manually via the U. S. Postal Service, sometimes referred to as snail mail (s-mail). 
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Bank checks and cash are the only form of payment which the conference currently 
accepts. Once registered, attendees will receive an “Abstract Catalog” which describes 
the articles to be presented. They may peruse the catalog to decide which presentations 
to attend. Attendees receive a copy of the conference proceedings about two months 
after the conference. 



2. Authors 

An author is someone who wishes to present recent research results. 
Information on topics and the submission process are obtained from the “Call for 
Papers.” Only a title, abstract, and extended summary are required to have an article 
considered by the Conference Technical Program Committee. Currently, submissions 
are accepted via electronic mail (e-mail) and s-mail. Unless invited, the article’s abstract 
and summary are reviewed for selection, and authors are notified by mail regarding the 
acceptance or rejection of their article(s). If selected, they must turn in a complete copy 
of the article at the conference to be used for publishing in the conference proceedings. 



3. Organizers 

Organizers consist of the committee members and a single administrator. They 
are responsible for publishing information on the WWW homepage and for sending out 
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information to the mailing list. Registrations and submissions are collected and sorted. 
After the review session, the administrator compiles and sends out accept/reject notices 
and the abstract catalog. After the conference, proceedings are published by the Institute 
of Electrical & Electronics Engineers (IEEE) Computer Society Press. Abstracts and 
summaries (whether accepted or rejected) are discarded two months after the conference. 



4. Reviewers 

The Technical Area Chairs are responsible for reviewing all articles submitted 
within their topic areas. All reviews are done during a single, one-day meeting. 
Abstracts are the primary basis forjudging articles, but the extended sununaries are 
available if more information is sought. Topic areas are generally defined through 
“keywords.” No comments, notes, or other documentation is maintained on the 
reviewer’s thoughts or opinions of the submissions. The Technical and General Chairs 
participate in the review and resolve any disputes that may arise. 
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Figure 2-1 . Asilomar Conference Organization. 
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m. METHODOLOGY 



A. BASELINE ASSESSMENT 



The assessment of the current Conference system includes a characterization of 
the organization's business fimctions and key processes. Data for this analysis was 
collected through interviews with organizers and a survey of 1995 Conference attendees. 

1. Business Functions 

Key business functions for the conference are: 1) attracting attendees and authors; 
2) determining topic areas; 3) collecting article abstracts and summaries; 4) reviewing 
and selecting articles; and 5) disseminating the article's information. These functions are 
primarily the responsibility of the Conference Committee. Forces influencing these 
functions are improvements in technology, trends in research and development, and 
pressure on academic faculty to publish. 

The Conference Registrar hired by the Conference Committee collects the article 
submissions. Each submission consists of an abstract (100-150 words) and an extended 
summary (500-1000 words). While abstracts are limited to text only, summaries may 
contain graphics and/or complex equations. ASCII text e-mail is sufficient for 
submitting abstracts, but is unable to handle the graphics/equations in a summary. 
Summaries may be submitted by either s-mail or e-mail in plain text ASCII format. 
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S-mail has no limits on content, but lacks the convenience of electronic transfer, 
especially at the receiving end where someone must then enter it into the Abstract 
Catalog. Technical Area Chairs travel to Monterey to review and select articles during a 
one-day, marathon review session. Abstracts and summaries are reviewed by the 
assigned Chair and the article is either accepted or rejected. If too many articles are 
accepted, the Technical Chair arbitrates a compromise. Not only is this expensive ( the 
conference pays to fly everyone in), but the amount of time available is insufficient to 
thoroughly review the submissions. As a result, article selection may sometimes be 
based more on the reputation of the author than on the merits of the paper. 

Dissemination of the articles takes place in two forms, presentation at the 
conference and publication in the conference proceedings. Putting on the presentations 
incurs the greatest effort and expense for the conference. Coordinating and paying for 
the resources required to bring all the players together in one location is also the most 
challenging problem. For attendees, the conference fee is generally trivial next to the 
cost of transportation, lodging, and missed work. 

An abstract catalog is published and distributed prior to the conference. Still, 
most people who attend presentations are not familiar enough with the topic to 
effectively interact with the author. The most useful exchange of ideas often occurs in 
one-on-one interactions that take place outside the scheduled presentations. 

Conference proceedings are a bulky set of documents that often end up on a 
bookshelf like a trophy, never to be taken down again. Most attendees are only 
interested in one or two articles, but their only option is to obtain the entire document. 
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As a result, more conferences have started to offer the proceedings in a CD-ROM format 
which allows readers to download only articles of interest. In addition, a large 
percentage of the conference fee is required to cover these printing costs. 

2. Information 

Dissemination of information is the primary purpose of this conference. The 
entire process is built around moving information from the authors (primary suppliers) to 
the attendees (primary customers). The flow of information throughout the conference 
process is as follows: 

1 . The conference publishes information on desired submissions, 

2. Authors return information about their articles, 

3. Reviewers determine whether the article is desirable for presentation, 

4. Attendees come to the conference to obtain article information. 

3. Applications 

The analysis of applications will include processes which are not yet automated. 
Existing automated/on-line systems consist of an FTP server with which attendees 
download details about the conference (location, cost, etc.), an e-mail address to which 
plain text ASCII electronic submissions may be sent, and a World Wide Web homepage 
which provides a central point of reference. Non-automated processes include mailing 
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conference information to a previous-attendees mailing list, collecting article 
submissions through s-mail, determining topic areas, revievsang articles, publishing the 
hard-copy conference proceedings, and presenting the author's paper. Results of the 
analysis are presented graphically in Appendix B. 

The current system for publicizing the conference will continue. On-line systems 
in place now will continue to be used to attract attendees and authors. Registration 
details will continue to maintained on the WWW pages and FTP server. E-mail will be 
retained as an option for submitting articles (for a limited time), and for general 
communications. Recognizing that everyone will not have on-line access, the mailing 
list will also continue. 

Determining topic areas is a subjective process and will not be modified. In the 
future, individuals may be allowed to suggest topics which interest them. However, 
collecting submissions is a prime candidate for re-engineering. Time and monetary costs 
for both the authors and the conference are too high. Authors must mail article 
submissions either in hard copy or electronic format. Conference administrators must 
collect the information, enter it into a database, collate the abstracts and summaries, and 
arrange and print the Abstract Catalog. 

The review process is another good candidate for replacement. The time and 
expense to bring reviewers together to conduct the reviews may become unnecessary. By 
making the submitted articles available on-line, reviewers could read them whenever and 
wherever they desired, without having to travel to Monterey. The reviewing process 
would be better served by allowing reviewers more time to conduct reviews. A Decision 
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Support System (DSS) could eventually be developed to assist in the review and 
selection process. 

The presentation does not need re-work, although improvements should be 
considered. Video broadcast and/or interactive would significantly strengthen the quality 
of the conference. Eventually, interactive systems may even mature to a point where it is 
no longer desirable to travel to distant locations for a conference. But for now, the social 
interactions and technical difficulties are enough to maintain the presentation as a main 
method of information dissemination. 

Hard-copy conference proceedings would ideally be eliminated by a fully on-line 
system. An on-line archive of presented articles would be more efficient and cost 
effective. Attendees could decide whether they wish to receive a printed proceedings. 
Conference registration fees of those desiring a hard-copy would include printing costs. 
Registration fees for everyone else could be reduced by that amount. 

4. Technology 

The use of technology is presently limited, but there is now a strong desire to 
exploit the power of the Internet. All on-line services are run on a UNIX local area 
network (LAN) at the Naval Postgraduate School. The W. R. Church Computer Center's 
Visualization Lab provides the server for the Asilomar Conference WWW Home Page. 

In addition, a PC LAN is available in the Electrical and Computer Engineering (ECE) 
Department. 
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5. Survey Results 



Attendees to the 1995 Asilomar Conference on Signals, Systems, & Computers 
were given the opportunity to complete a survey about their capabilities and opinions 
regarding an on-line conferencing system. The only respondents were individuals who 
presented articles at the conference. Since the initial stage of this project is geared 
toward the submission of articles to be considered for presentation, the narrow scope was 
acceptable. Views from a broader sample will be beneficial in the later stages. Of the 
one hundred and eighteen (118) smv^eys returned, only one did not support an on-line 
system. Most respondents have WWW access and Netscape was by far the browser of 
choice. Responses were very positive regarding web access to retrieve registration 
materials, submit article, and preview accepted abstracts. However, responders were 
unsure whether they would send comments to the authors about their articles. A 
summary of the results is included in Appendix D. 

6. Summary 

The Asilomar Conference on Signals, Systems, & Computers has begun the 
transition to the information age, but has taken only few small steps. Successfully re- 
engineering the processes that make up the conference will require a paradigm shift, the 
extent of which the members of the conference do not yet realize. Our project is viewed 
by most as simply an added convenience for users to be able to submit documents on- 
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line. However, a great deal of possibilities are being overlooked. This new system could 
eventually revolutionize the manner in which the conference is conducted. What is 
required is a willingness of the conference sponsors to explore the latest technology 
offered by the WWW. 

Realistic measures of success of the new system are mostly subjective issues of 
user satisfaction. However, a real measurement will be made in cost savings, both in 
travel expenses for reviews and administrative savings. Measuring user satisfaction is 
always difficult. By placing a "Call for Papers" on the WWW homepage in addition to 
the usual mailing list, the widest possible dissemination of conference information is 
possible. Acceptance of the new system will be gauged by actual usage. A survey of 
respondents can be taken as well to discover how they obtained conference information. 

On the review process, user satisfaction becomes even more difficult. One 
measure will be to count how many people review an article, on average. However, this 
is not completely accurate since more reviews do not automatically translate into "better" 
reviews. Satisfaction of the reviewers would be a good measure because they could 
gauge whether having a more relaxed atmosphere to do the review was helpful. They 
could also estimate their own ability to conduct the review. 

B. TARGET SYSTEM 



As stated in the introduction, part of the goal of this thesis was to develop a target 
system and implement a portion of it. Users’ goals for the system were acquired from 
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the survey conducted and through meetings with conference staff members. These goals 
serve as the blueprint for the system design. 

1. User Goals 

The primary goal of the conference is to be able to collect and process article 
abstracts and summaries efficiently. There is no requirement for electronic submission, 
but the more people use the system, the greater the efficiency will be. To accomplish 
this task, the system must be able to; 

1 ) reliably receive and number documents, 

2) print documents, 

3) maintain Abstracts separate from Extended Summaries, 

4) sort incoming documents by Keywords, 

5) send automated acknowledgments to submittor, 

6) keep track of what is sent and received, 

7) provide the staff access to submissions, but prevent unauthorized viewing. 

Finally, maintainability is a concern. The target system for the Asilomar conference on 
Signals, Systems, & Computers consists of the following on-line services: 

1) conference information, 

2) registration and payment, 

3) article submission. 
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4) article review. 



5) article archiving. 

1) Conference information 

Information regarding the conference program, registration, submission 
process and local points of interest such as dining and hotels will be available on-line. 

2) On-line Registration 

Attendees not only receive information about the conference, they can 
register, reserve hotel rooms, rental cars, and dinning arrangements. Everything will be 
purchased on-line through the convenience of electronic commerce. The system will 
also maintain a database of names and addresses of conference attendees. 



3) On-line Submission 



Authors can submit their articles and extended summaries from any 
Internet connection. 
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4) On-line Review 



Articles are reviewed and selected on-line via the Internet with any 
standard web browser. Accept and reject letters are automatically printed once the 
reviewing process is complete. 

5) On-line Article Archive 

Articles are available for review and download over the WWW which 
replaces a need for hard copy proceedings. 

2. Future Possibilities 

The ultimate goal for the conference is a WWW system which covers every 
aspect of the Conference: information, registration, submission, and continual interaction 
on various topic areas through news groups, chat rooms, and e-mail. Eventually, on-line 
capabilities may replace the face-to-face conference. Articles may be submitted, 
reviewed, presented, and archived entirely on-line. The "conference" is no longer a 
physical meeting at a specific place or time. Interested individuals can submit articles 
and recorded presentations on a continual basis. Articles are maintained on server for 
access on demand. The social interactions are replicated through e-mail, news groups, 
and chat rooms. The exchange of information is an on-going process. 
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c. 



MIGRATION TO THE TARGET 



Reliability in the system is paramount. Migration must occur with a minimum of 
risk to the conference, as data loss would be entirely unacceptable. 



1. Path to Target 



The five services discussed in Section III. D could be implemented 
independently, or concurrently. However, the logical serial path will be as follows; 

1) Conference Information, 

2) Article Submission, 

3) Article Review, 

4) Article Archive, 

5) Registration and payment. 

Re-engineering the review process is the highest priority because this is where the 
most time and money can be saved and the most value added to the system. However, 
on-line submissions must be accomplished first. Otherwise, administrative personnel 
would have to store the submissions electronically before they could be reviewed on-line. 
Archiving should follow submission because the on-line submission components will 
serve as catalog information for the archive. Registration and payment should be last 
simply because technology for universal electronic payment (digital cash) is still 
developing. On-line registration without on-line payment would only complicate the 
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process. 



2. Thesis Goal 

For the purpose of this thesis, the submission process and several administrative 
functions will be automated. Authors will not only submit information about their 
articles, they will also update their contact information maintained in the conference 
database. The system will rely on HTML 3.0 forms to collect the information and 
common gateway interfaces (CGI) to place the data into a database. 

Implementation also requires the availability of several system administration 
functions. Necessary capabilities include maintaining passwords, accessing the database, 
updating the database as articles are reviewed and selected, and printing articles, 
accept/reject notices, and the abstract catalog. User-friendly interfaces and highly 
automated CGI’s will be used to emphasize ease of use. 
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IV. IMPLEMENTATION 



A. ISSUES 

1. Information Flow 

The current submission process is tedious for both the Asilomar Conference staff 
and the submitting author. Registration forms, abstracts, and extended summaries must 
all be sent on paper or via e-mail. The conference staff, consisting of one person at this 
time, must then sort through the myriad of papers and forms and enter all the information 
manually. Abstracts must either be retyped or scanned into the old computer system, and 
formatted for the abstract catalogue published at each conference. 

The new on-line system will eliminate these and other hassles. All information is 
stored directly to a database with the exception of extended summaries which are stored 
as files in a separate directory. The author saves printing and mailing costs as well. The 
administration functions built in to the new system enables the administrator to 
manipulate the database from any Internet cormection. The abstract catalogue is 
automatically formatted and can be printed with the click of a button. As more people 
use the system, the entire registration process becomes more timely, accurate, and 
simple. 
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2 . 



Compatibility with the Current System 



The Asilomar conference currently maintains an information-only web site. All 
conference registration, abstract submissions, and database functions are handled 
manually. The system we have created can be accessed from the current site and will 
automate a majority of the processes. Our system integrates the existing database and 
can be used in conjunction with all manual processes. 

3. Platform Selection 

One of the first major decisions of this project involved the selection of the 
hardware platform best suited to our needs. We considered two alternatives: 1) the Naval 
Post Graduate School’s UNIX system, 2) to purchase a Personal Computer to connect to 
the school’s Ethernet network. Factors affecting the decision included security, price, 
available software, and performance. The advantages and disadvantages are delineated 
by platform. 



0. UNIX 

The UNIX system offered speed and bandwidth with no monetary 
expenditure, but had some serious drawbacks. The UNIX system did not have a 
functional database installed. An effort was underway to implement the Oracle database. 
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however, the completion date was unknown at the time. Also at that point, the NPS 
system administrator was not in favor of allowing students to nm Perl executables from 
their accounts due to security concerns. Such a limitation was imacceptable for our 
project. The system administrator acquiesced to a trial period for our project, but would 
not guarantee a permanent solution. 

b. Desktop PC 

The PC offered access to the latest software development, Internet access, 
and database programs, but at a cost. Software costs alone were expected to exceed $500 
in addition to $3000 for hardware. The PC also had speed and bandwidth limitations. 

c. System Selection 

Based on the unstable commitment from the UNIX system administrator 
and the proliferation of 4* generation application development languages available for 
the PC, we elected to design our system on a PC running Windows 95. The decision was 
a wise one because in December of 1995, the UNIX system was compromised and 
security restrictions were increased as a result. 
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4. 



Application Selection 



a. Common Gateway Interface 

Executable programs on the Internet must follow one of a few 
programming protocols. Of those, the most prevalent is the Common Gateway Interface 
(CGI). Many different languages can support CGI functions, with ease of use varying 
greatly among them. Once we decided on a PC platform, the list of CGI languages 
narrowed. There were three major contenders; 1) Cold Fusion by Allaire, inc., [Ref 1] 
2) Delphi by Borland [Ref 2] and, 3) DOS Perl [Ref 3]. 

Cold Fusion is a brand new product, still in its first version with little 
documentation available. It was originally developed specifically as an interface 
between a database and the Internet. It came highly recommended from several 
classmates who had recently begun using it to develop web applications. Cold Fusion 
offered an easy to use interface, a language very similar to HTML, and compatibility 
with the latest version of Microsoft’s Access database. However, it lacked powerful 
programming tools and the flexibility of a true application development language. 

Delphi is a Windows application development tool. The programming 
language is essentially Pascal, but Delphi adds drag and drop programming elements, 
drop down lists, and a point and click interface to automate much of the coding process. 
Delphi offers seamless connectivity with Borland’s Paradox database, which 
coincidentally, was the database in use at the time by conference administrators. 
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Unfortunately, the CGI programming elements were new, and thus, poorly documented. 
These elements were developed outside of the Borland corporation by Ann Lynnworth of 
HREF Tools Corp.[Ref 4], so no technical support was available. Once again, 
classmates who had just begun using Delphi with these new elements recommended 
them as the solution for our system. 

DOS Perl offered none of the advantages listed above and since it is not a 
Windows application, the power and flexibility of Windows ‘95 would be lost. As a 
result, it was eliminated as a choice early on. 

Delphi was chosen as the language to be used because of the 
programming flexibility and the compatibility with the database already in use by the 
conference staff. As it turns out, Delphi’s programming robustness was needed to its full 
extent to create the system we did. 

b. Database 

The choice of database was linked to our selection of a CGI language. 
Cold Fusion interacted seamlessly with Microsoft Access as Delphi did with Borland 
Paradox. Once the decision was made to use Delphi, Paradox was the logical choice. 

c. Web Server 

Selecting a web server was a difficult choice, as there are many products 
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available with a wide variety of functions and prices. From the many, two stood out as 
having the functionality and compatibility desired for our system. Those were Netscape 
HTTPD [Ref 5] and O’Rielly’s Website [Ref 6]. Our choice was made based on word of 
mouth recommendations from classmates experienced in using both products. Website 
offered a better combination of ease of use, flexibility, performance, and price. Website 
was also compatible with both Cold Fusion and Delphi programming languages. 

5. Security 

System protection is a primary concern in this project. Authors from literally 
around the world will be submitting information, abstracts, and extended summaries via 
this system which will be used to accept or reject their papers. The database will be used 
to maintain mailing address lists and an archive of abstracts to be published in the 
conference proceedings. It is therefore imperative that all data received is accurate and 
secure. 



a. System Protection 

Physically, the system is located in the Digital Signal Processing 
laboratory at the Naval Postgraduate School. This area is only used by students working 
on thesis topics and is locked at night. The PC is password protected on boot-up and 
uses a password protected screen saver. While certainly not foolproof, the protection 
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offered will keep the average mischievous person at bay. The expected threat here is 
low, because of the system’s location and the student’s respect for the work of others. 
The true threat lies from Internet users notorious for attempting to hack systems for the 
fun of it. This issue is covered as it applies to specific components of our system. 

b. Database Protection 

The primary means of database protection is timely backups. With the 
tape backup, the entire contents of the database will be copied on a regular basis. Thus, 
for any catastrophic event, the data loss will be minimal. As any system designer knows, 
a computer is only secure if it has no connections to it and is locked in a vault that has no 
doors. A PC connected to the Internet has many vulnerabilities, but we have minimized 
those through the design of the system itself Database functions are accessed through 
the administrative section of the system. Access to this area is controlled by a password 
form. 

One problem with Internet applications is that once someone knows the 
name of an executable file, he may run that file by typing the path information into the 
URL field of his web browser. If that file exists, it will be executed. We have 
programmed into every executable a conditional check of a flag variable. This flag can 
only be set by entering the appropriate login and password combination on the first 
screen. Once the password has been entered correctly, a flag is set that will allow a user 
to access all database functions. The programs will execute without the flag being set. 
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however each program will only print out a warning message and return the user to the 
login screen. So, even if an imauthorized user discovers the names of the executables, 
there is no way (that we know of) to set the flag variable without the proper login and 
password. 

The threat still exists of a brute force attack on the login and password 
combinations. A brute force attack is one where a hacker attempts to guess the login and 
passwords of legitimate users. This small threat can be minimized even more through 
limiting the number of users (currently two), frequent password changes, and using good 
password selection techniques - including upper and lower case, digits, and special 
characters within the password. 

c. Application Protection 

(1) Website Security. The denial of access to the PC’s hard drive is the 
responsibility of the server software. Website. This program controls all Internet access 
ftmctions of the system. Inherent in its design is a restriction that limits users to 
directories higher than the C:\Website directory. In other words, when a browser 
accesses the system, the lowest directory available to it is either C:\Website\Htdocs or 
C:\Website\cgi-win. It is not possible to access the root directory or any other directory 
than those stated above. Website also does not allow file uploads (i.e. a user sending a 
file to our computer) or modification of files on our system. Therefore, a user may look 
at and execute any file that we place higher in the directory structure than C:\Website, 
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but nothing else. 

(2) FTPD Security. One of the requirements of the system was that 
authors must be able to upload Post Script files of their extended summaries. This 
required FTP server software be installed. This software inherently adds security risks 
because it grants users the ability to upload and download files as well as to view and 
modify the contents of a directory (i.e. delete and rename). Security controls built in to 
the software package allow the server administrator to restrict a user’s access rights. 
Currently we have limited all users’ rights to file upload only. Users cannot view the 
contents of the directory, modify its contents, or change directories. The strength of this 
protection lies within the strength of the program itself We are currently using a 
shareware version of WFTPD [Ref 7], a popular FTP server. By limiting the user’s 
ability to change directories, modify directory contents, and view directory contents, the 
ability to corrupt another author’s data is slight. 

B. System Design 

1. System Overview 

The entire Asilomar Conference System consists of the following elements; 

1) The Asilomar Conference information homepage 

2) The article submission sub-system 

3) The administration sub-system 
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4) The article review sub-system. 



Prior to this thesis, only the first element existed. The second and third have been 
implemented and comprise the bulk of this thesis. The fourth element will be completed 
in a follow-on project. 

CL System Flow Diagrams 

The following diagrams show the relationship of 1) the Asilomar 
Conference System as a whole, 2) the article submission sub-system and, 3) the 
administration sub-system. The information homepage and the article review sub-system 
were not within the scope of this thesis, and as such, are not included. 
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Figure 4-1. Asilomar Conference System. 
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Figure 4-2. Article Submission Sub-system. 
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Figure 4-3. Administration Sub-system. 
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2. Article Submission Sub-system description 

The Article Submission Sub-system is a combination of HTML pages and Delphi 
executable programs that form the user interface for the conference registration process. 
Images of each HTML page are at the end of this chapter and are referred to in the 
program descriptions below. 

Via this system, users can add and update personal information as well as submit 
articles and paper summaries for review. Security is not a concern in this sub-system 
because any changes made to a user’s personal information is sent to a temporary 
database. The update is only made permanent when reviewed by the system 
administrator. 



a. Author submission sub-system introduction 

The introduction HTML page (Introl0.htm) welcomes the user and offers 
three hypertext link options as shown in Fig. 4-4. All figures appear at the end of Section 
IV. 

1) Obtain information for on-line submission (Infol2.htm), 

2) Obtain information for manual submission (Manuall l.htm), 

3) Transfer to the on-line submission process (Searchl3.htm). 
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(1) On-line submission information (Infol2.htm), Fig. 4-5. This page 
explains the requirements and process necessaiy for a user to submit information with 
the WWW-based system. There is a hypertext link to Extsumm.htm (Fig. 4-6) which is 
an HTML page that explains what an extended summary is. In addition, this HTML page 
contains two links which enable a user to download a file transfer protocol (FTP) 
program in either Windows 3.1 or ’95 format, as FTP is required for users who wish to 
upload an extended summaiy for review. 

(2) Manual submission information (Manualll.htm) page. Fig. 4-7. This 
HTML page briefly outlines the steps necessary for an author to submit personal and 
article data via U.S. mail. 

(3) Submit information on-line (Searchl3.htin), Fig. 4-8. The first step in 
the on-line submission process is a check of the database for the author’s name. This 
HTML page asks the user to input his first and last name and middle initial. The HTML 
form then calls a Delphi executable (D13.exe), which conducts the database query. 

b. The database query 

The executable (D13.exe), receives the author’s name and queries the 
Autbor.db database table. The query has three possible outcomes; 1) the author’s name 
is not found, 2) a unique match is found, 3) multiple matches are found. For each 
outcome, the program will create a specific HTML form. 

Outcome one: a blank HTML input form is created (Fig. 4-9) that allows 
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the author to input his/her personal information. Once submitted, this form calls an 
executable program (Addl32.exe) which stores the information directly to the permanent 
author table (Author.db). 

Outcome two: an HTML form is generated that contains all known 
information about the author filled in the appropriate blanks (Fig. 4-10). The author may 
then either accept the information as is, or make changes to it. When submitted, this 
form calls an executable (Editl32.exe) which stores changed information to a temporary 
database to be reviewed by the system administrator. One other possibility that had to be 
accounted for was when the database returned a unique entry that referred to a different 
user. If this is the case, the author can select a hypertext link to an HTML form 
(Authl312.htm) which allows him/her to enter his personal information (Fig. 4-11). 

Once the form is filled in, Addl32.exe is called to store the information to the permanent 
database, Author.db. 

Outcome three; if more than one match is found, the user is presented 
with a table of names from which he/she can choose a selected record by clicking on the 
hypertext entry (Fig. 4-12). Doing so will call an executable (Multil32.exe) which 
generates the same form as the unique entry case and performs the same functions. Once 
this form has been completed, Editl32.exe is called to store the information to the 
temporary database table (Tempauth.db). 
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c. Article submission 

At this point, the author’s information has been stored in either the 
permanent author table by the executable program Addl32.exe, or into the temporary 
author table by Editl32.exe. Both of these programs, when complete, generate an 
information page that tells the user he/she has completed the personal information 
process and should proceed to the article submission by clicking the button which calls 
the next executable (Fig. 4-13). 

The executable D_Submit.exe generates an HTML form that allows the user to 
input an abstract, title, keywords, and other relevant article information (Figs. 4-14, 
4-15). When submitted, the information is redisplayed by the executable Dpaper.exe 
(Figs. 4-16, 4-17). The user is given a message stating that once this form is submitted, 
the information cannot be changed. 

d. Confirmation Page 

Once the user has confirmed the data entered into the form created by 
Dpaper.exe, a confirmation page is created by the executable D2paper.exe (Fig. 4-18). 
This final page contains a unique registration number, instructions on how to upload an 
article summary, and Log-in information for the FTP server. 
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3. Administration Sub-system description 

Functions associated with maintaining the database, administering the system and 
handling the submissions are located in the administration sub-system. Security is a 
major concern within this portion of the system because of database integrity issues. 

The administration sub-system is password protected, and uses only dynamically 
created HTML pages. In other words, any HTML form that the user sees is created by 
Delphi executable programs. This prevents would be hackers from accessing database 
management functions because each program requires an access code to create an HTML 
form. The access code is generated once the user has entered a correct login and 
password. The code is then passed from executable to executable transparent to the user. 
Anyone attempting to execute any of the programs without having first entered a correct 
login and password is given a warning message instead of the PfTML form the program 
would normally create. The intent is not to have an air-tight system, rather to prevent the 
casual user and novice hacker from accessing the database. Encryption is not used, so 
the system is still vulnerable to sniffers gaining passwords and access codes. Future 
improvements to combat this vulnerability could include a one-time password system in 
which passwords are only valid for one session, after which, a new password must be 
used. Another solution is to install a firewall that limits access to the administration sub- 
system based on the user’s location. The technology for both these improvements is 
currently available. 
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a. Log-on and main menu 

The first page in the admin sub-system is an HTML page (AdmiD20.htm) 
that declares the purpose of the page and includes a form for entering a USERID and 
PASSWORD (Fig. 4-19). This is the only HTML page in the admin sub-system not 
created by a Delphi executable program. 

A CGI executable takes the Form input (USERID and PASSWORD), 
verifies the user, and generates an HTML page which contains the Administration Main 
Menu (Fig. 4-20). The menu consists of buttons, each of which evokes a series of 
executables for the respective fimction. Failure to provide a valid password generates an 
HTML page which warns against unauthorized access and allows a retry. 

b. Review changes to Author data 

One of the fimctions of the Submission Sub-system is to allow an author 
to update his/her personal information (see chap. IV, sec. 2c). These changes are stored 
in a temporary table called Tempauth.db. This function allows the System 
Administrator to review the submitted changes before they become permanent. If the 
entries appear to have been changed maliciously, they can be rejected. Otherwise, they 
are accepted and become part of the permanent record. This process requires four 
executables: 

1 ) Change Author (AuChange.exe) 



39 



2) View changes (ViewChng.exe) 

3) Make the change (MakeChng.exe) 

4) Do not make the change (NoChange.exe) 

(1) Author Changes (AuChange.exe). This program is called from the 
Admin Main Menu to retrieve any data in the Tempauth.db table and present it in an 
HTML form with selected information about the Author (Fig. 4-21). The record number 
of the change is presented as a hypertext link to the record information. The System 
Admin chooses the author whose record changes they wish to review by clicking on the 
hypertext record number. 

(2) View changes (ViewChng.exe). Called from the dynamically created 
Author Changes Table (AuChange.exe), this program presents the submitted changes 
side-by-side with the permanent data (Fig. 4-22, 4-23). If acceptable, the “Accept 
Changes” button calls MakeChng.exe to replace the permanent data. Otherwise, the 
“Discard Changes” button calls NoChange.exe which discards the changes. 

(3) Make the Change (MakeChng.exe). This function replaces the 
permanent Author record with the submitted changes. The data in the Tempauth.db 
Table is discarded after the change is made. A confirmation page is sent with the option 
to “review more changes” which links back to AuChange.exe. 
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(4) Do not make changes (NoChange.exe). This function discards the 
changes without modifying the permanent Author record. A confirmation page is sent 
with the option to “review more changes” which links back to AuChange.exe. 

c. Edit Author data 

This flmction allows the system administrator to directly access Contact 
Author data held in the Author.db table. After presenting a form for entering the first 
name, last name, and middle initial of the desired Author, a series of screens is presented 
to ensure selection of the proper record. Once the Author has been identified, the 
information is presented in a Form. Changes made to the Form go directly into the 
permanent record. 

Five programs are required to implement this function. 

1 ) Input Author name (InputAu.exe) 

2) Search the database and show results (AuthSrch.exe) 

3) Add a new author (AuAdd.exe) 

4) Resolve multiple matches (AuMulti.exe) 

5) Edit the Author (AuEdit.exe) 

( 1 ) Input Author Name (Inputau.exe). This program generates an HTML 
page with a form to submit the author name whose record will be edited (Fig. 4-24). 
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(2) Search the database (AuthSrch.exe). After searching the database for 
the given author name, this program branches according to how many matches were 
found. If no match to the submitted author name exists in the database, a blank author 
data form is generated (Fig. 4-25). Submitting this form calls AuAdd.exe. A single 
match generates an author data form which contains the database fields (Fig. 4-26). 
Submitting this form calls AuEditexe. When multiple matches to the name are found, a 
table containing all of the matches is generated (Fig. 4-27). Each match has a hypertext 
link which calls AuMultLexe. 

(3) Add a new Author (AuAdd.exe). Called by submitting the new 
author form, this program takes the form data and creates a new author record. A 
confirmation page is sent \vith the option to “Edit another Author” which links back to 

InputAu.exe. 



(4) Multiple Matches (AuMulti.exe). This program is called by the 
hypertext links on the multiple matches table. The record number passed by the 
hypertext link is used to retrieve an author’s data which is presented in an HTML form 
for editing. Submitting this form calls AuEditexe. 

(5) Edit an Author (AuEditexe). This program is called after author data 
has been edited and needs to be updated in the Author.db table (Fig. 4-26). If a vmique 
match was found during the initial search, then AuEditexe is called by the form 
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generated by AuthSrch.exe. If there were multiple matches found, AuEditexe is called 
from the form generated by AuMulti.exe. To protect the permanent database, these 
changes go into a temporary table called TempAuthondb. The system Administrator 
must review and approve the changes before the permanent database is modified. 

d. Edit Article Data 



This function allows direct access to Article data held in the SubmissLdb 
table. Three options are presented for finding a specific article record. An article may 
be chosen from a list of all the articles in the database, from a list of articles which meet 
certain user-selected criteria, or from a list of articles submitted by a certain author. 
Whichever option is chosen, the user is presented with a table of article titles that are 
hypertext links to the article record. Once the article has been identified, the information 
is presented in an HTML form. Changes made to the form are submitted directly into the 
Submissi.db table. The Edit Article Data function has the following components; 

1 ) Edit an Article (ArtlEdit.exe) 

2) Search for the Article (ArtlSrch.exe) 

3) Article by Author Search (ArtLAuth.exe) 

4) View the Article (ArtlView.exe) 

5) Post the Article (ArtlPostexe) 
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(1) Edit an Article (ArtlEdit.exe). Called from the main menu, this 
program creates an HTML page with three selection options (Fig. 4-28). To generate a 
table with all the article titles, a button links to ArtlSrch.exe with a hidden action flag 
set to “all.” To specify criteria for the article, a form is presented with four fields; 
invited, accepted, keyword, and session. Each field has a drop)-down box of choices. 

The option to not search on the field is available on each. Choices for “invited” and 
“accepted” are “yes,” “no,” and “do not search on this field.” The “keyword” search 
criterion has all the keywords in the Keyword.db table, and “session” has all the sessions 
in the Session.db table. The submit button calls ArtlSrch.exe with the hidden flag set to 
’’article” and performs a query on the selected fields. If each of the four search fields is 
set to “do not search on this field,” the result is a table containing all article titles. 

To generate a table of articles submitted by a specific author, a form is available 
to input the name. The submit button for this form also calls ArtlSrch.exe, but the 
hidden flag is set to “author.” 

(2) Search for the Article (ArtlSrch.exe). The action performed by this 
program depends on the hidden action flag sent by the calling program. A flag set to 
“AH” generates a table containing every title in the Submissi.db table. Each title is a 
hypertext link to ArtlView.exe with that article’s record number (Fig. 4-29). If “Article” 
is the flag’s value, the Submissi.db table is queried based on the criteria (“invited”, 
“accepted”, “keyword”, or “session”) submitted in the previous form, and a similar table 
is generated. If the flag is set to “Author,” a search is conducted for matches to the 
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submitted name. The author search is rather complicated. Author names are stored in 
two different locations, depending on whether they are the “contact” author for the paper, 
or an “other” author. First, the Author.db table, which contains only contact authors, is 
queried for matches. If there are no matches, then the Submissi.db table is searched for 
“non-contact author” matches and the results are displayed in an HTML table. If there is 
a contact author match, an HTML table is generated with a list of those matches so the 
exact author can be determined. The authors in the created HTML table are hypertext 
linked to ArtiAuth.exe so that the query will search through the non-contact authors as 
well. If the requested author’s name appears on the list, but belongs to a different author 
with the same name, a button is available which links to ArtiAuth.exe, and a flag set to 
“not a contact author” so the search will continue. 

(3) Article by Author (ArtiAuth.exe). This program is called when 
ArtlSrch.exe finds a match in the Author.db table. Two queries are done, one to find 
the articles with contact author matches, and one for “other” authors. A table of article 
titles is generated with the results of each of these queries (Fig. 4-30). Each title is a 
hypertext link to ArtlView.exe with that article’s number. If the “not a contact author” 
flag is set, then the contact author query is not executed and only the non-contact authors 
are searched. 



(4) View the Article (ArtlView.exe). Called by the hypertext link from 
either table of article titles generated, this program displays the selected article’s data in 
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a form. Using the article record number passed via the hypertext link, the article data is 
retrieved and presented in an PfTML form. The user may then edit any information 
displayed. The submit button on this form calls ArtlPostexe. 

(5) Post the Article (ArtlPostexe). Called from ArtlView.exe, article 
data is retrieved from the form and placed in the Submissi.db table, overwriting 
previous data. A confirmation page is sent with the option to “Edit another Article.” 

e. Edit Sessions 

Sessions for identifying topic areas are maintained in the Session.db table. 
Although sessions remain constant for a given conference, they may change from year to 
year. Through this function, sessions may be modified, added or deleted. 

1) Choose Session (Sessions.exe) 

2) Edit a Session (SessEditexe) 

3) Edit Confirmation (SesEdit2.exe) 

4) Add a Session (SessAdd.exe) 

5) Addition Confirmation (SessAdd2.exe) 

6) Delete Session(s) (SessDel.exe) 

7) Verification of Delete (SessDel2.exe) 

8) Deletion Confirmation (SessDel3.exe) 
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(1) Choose Session (Sessions.exe). A table of all the current sessions is 
displayed (Fig. 4-31). Each session identifier is a hypertext link to SessEditexe with the 
session number. Options are available to “Add a Session” and “Delete a Session.” 

(2) Edit a Session (SessEditexe). The current session name is displayed 
in a form (Fig. 4-32). Changes made in the form are submitted to SesEdit2.exe. The 
option to exit without changing also exists. 

(3) Edit Confirmation (SesEdit2.exe). This program retrieves the form 
input from SessEditexe and posts the change to the Session.db table. An HTML 
confirmation page is then sent with the options to edit more sessions or return to the 
main admin menu page. 

(4) Add a Session (SessAdd.exe). Called from Sessions.exe, four boxes 
are available for entering new session names (Fig. 4-33). Any number of the boxes may 
be used. Submitting this form calls SessAdd2.exe. 

(5) Addition Confirmation (SessAdd2.exe). Form data is retrieved from 
SessAdd.exe and non-empty fields are added to the Session.db table. To ensure proper 
ordering, sessions are placed in alphabetical order. An HTML confirmation page is sent 
with the options to “Edit more Sessions” or “Return to the main admin page”. 
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(6) Delete Session(s) (SessDeI.exe). An HTML table is presented 
containing all session numbers and names (Fig. 4-34). This presentation includes the 
session number to make it visually distinct from the “edit session” table. The session 
number is a hypertext link which calls SessDel2.exe with the record number. The option 
to “Delete all Sessions” is also available in the event the system administrator wishes to 
create a session list from scratch. Selecting “Delete all Sessions” will set a hidden flag 
to “DeleteAll” and is passed to SessDel2.exe. 

(7) Verification of Delete (SessDel2.exe). This program retrieves the 
hidden flag and the session nrunber query string. If “DeleteAll” is not found, the selected 
session is deleted and a confirmation HTML page sent. Otherwise, an HTML page is 
sent to confirm that the user wants to delete all of the sessions. Options available 
through form buttons are: 1) “Yes - DELETE ALL Sessions in the Database” or 2) 
“Cancel - do NOT delete.” 

(8) Deletion Confirmation (SessDel3.exe). Appropriate sessions in the 
SessioD.db table are deleted and an HTML confirmation page sent with the option to 
“Edit more Sessions”. 

f. Edit Keywords 

Keywords for identifying topic areas are maintained in the Keyword. db 
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table. Although they remain constant for a given conference, they may change from year 
to year. Eight executable programs implement this function which enable the user to 
modify, add, or delete keywords: 

1 ) Choose a Keyword (Keywords.exe), 

2) Edit a Keyword (KeyEdit.exe), 

3) Edit Confirmation (KeyEdit2.exe), 

4) Add a Keyword (KeyAdd.exe), 

5) Addition Confirmation (KeyAdd2.exe), 

6) Delete Keyword(s) (KeyDel.exe), 

7) Verification of Delete (KeyDel2.exe), 

8) Deletion Confirmation (KeyDel3.exe). 

(1) Choose a Keyword (Keywords.exe). A table of all the current 
keywords is displayed (Fig. 4-35). Each Keyword is a hypertext link to KeyEdit.exe 
with the keyword record number. Options are also available to “Add a Keyword” and 
“Delete a Keyword.” 

(2) Edit a Keyword (KeyEdit.exe). The selected keyword is displayed in 
an HTML form (Fig. 4-36). Changes are made in the form and submitted to 
KeyEdit2.exe. There is also option to exit without changing. 
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(3) Edit Confirmation (KeyEdit2.exe). This executable program 
retrieves the form input from KeyEditexe and posts the change to the Keyword.db 
table. An HTML confirmation page is sent vvith the options to “Edit more Keywords” or 
“Return to the main admin page”. 

(4) Add a Keyword (KeyAdd.exe). Called from Keywords.exe, four 
HTML form boxes are available for entering new keywords (Fig. 4-37). None of the 
boxes require entries. Submitting calls KeyAdd2.exe. 

(5) Addition Confirmation (KeyAdd2.exe). Form data is retrieved from 
KeyAdd.exe and non-empty fields are added to the Keywords.db table. An FTTML 
confirmation page is sent with the options to “Edit more Keywords” or “Return to the 
main admin page”. 

(6) Delete Keyword(s) (KeyDel.exe). A table is presented which 
contains the keyword record number and name (Fig. 4-38). This presentation includes 
the record number to make it visually distinct from the “edit keyword” table. The 
keyword record number is a hypertext link which calls KeyDel2.exe. The option to 
“Delete all Keywords” is also available in the event the System Administrator wishes to 
create a keyword list from scratch. If “Delete all Keywords” is selected, a hidden flag is 
set to “DeleteAll” and passed to KeyDel2.exe. 
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(7) Verification of Delete (KeyDel2.exe). This program checks the 
hidden flag and retrieves the keyword record number. If “DeleteAll” is not found, the 
single keyword is deleted and a confirmation HTML page sent. Otheiwise, an HTML 
page is sent to confirm that the user wants to delete all of the keywords. Options are 
available through form buttons to “Yes - DELETE ALL Keywords in the Database” or 
“Cancel - do NOT delete.” 

(8) Deletion Confirmation (KeyDel3.exe). Each keyword in the 
Keyword.db table is deleted and an HTML confirmation page sent with options to “Edit 
more Keywords” or “Return to the Main Admin Page”. 

g. Invite Articles 

Articles invited by the Session Chairs are not subject to the normal review 
and selection process. Modifying the Submissi.db table to reflect this status is done via 
this function. Session Chairs will provide the system administrator with a list of invited 
article titles. The required programs are; 

1) Display Titles (Invite.exe) 

2) Invite Titles (Invite2.exe). 

(1) Display Titles (Invite.exe). This program displays a form with a list 
of all the article titles in the Submisskdb table with a check box (Fig. 4-39). A drop- 
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down option box allows the administrator to either “Invite” or “NOT Invite” the selected 
titles. 

To mark articles invited, “Invited” is selected on the drop-down box and the 
title(s) which are invited are checked. Submitting this form calls Invite2.exe. It is not 
necessary to mark articles as “NOT Invited” unless they were previously marked 
“Invited” and need to be changed. 

(2) Invite Titles(Invite2.exe). Called by Invite.exe, Invite2.exe modifies 
the “Invited” field on selected articles in the Submi$si.db table. It first takes the passed 
query string and parses it to determine the action (Invite or NOT Invite) and the article 
numbers to be changed. Then, each article is located and changed. A confirmation page 
is sent with the option to “Invite more Articles”. 

h. Accept / Reject Articles 

After the review process is complete, articles must be annotated as either 
“accepted” or “rejected.” This segment allows the system administrator to quickly mark 
the Submissi.db table appropriately. Changes may be made to one article, to several 
articles, or to all of the articles. 

1 ) Select Articles (Choose.exe) 

2) Accept / Reject Articles (Choose2.exe) 
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(1) Select Articles (Choose.exe). This program displays a form with a list 
of all the article titles in the SubmissLdb table with a check box (Fig. 4-40). A drop- 
down option box allows the administrator to either “accept,” “accept then reject,” 
“reject,” or “reject then accept” the selected titles. 

The multiple choices provided will simplify this process because the 
Administrator will not have to specifically mark every article. When a list exists with 
more rejections than acceptances, checking off accepted articles and the “accept then 
reject” option will set the selected titles as accepted and automatically set the rest as 
rejected. If there are fewer rejected articles than accepted, then the rejected article titles 
are selected and “reject then accept” will reject those and accept the rest. 

To mark articles individually, either the “accept” or “reject” option is 
selected on the drop-down box and the title(s) checked off are modified as appropriate. 
“Accept” or “reject” will only modify the selected articles and will not affect other 
articles. Submitting this form calls Choose2.exe. 

(2) Accept / Reject Articles(Cboose2.exe). The query string is retrieved 
and parsed to obtain the action and the titles. A case statement uses the action passed to 
modify the necessary article fields in the SUBMISSION Table. Titles are placed on a 
string list and individually processes. When the action is to “accept then reject” or 
“reject then accept,” then all articles are set to the second action and then the string list is 
processed to change the selected articles. 
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L Assign Articles to Sessions 

Once articles are accepted, they must be assigned to a session and ordered 
within a session. The following programs assign articles and order them within a 
session. 

1) Assign Articles to Session (Assign.exe) 

2) Order Articles in Session (Assign2.exe) 

3) Confirmation (Assign3.exe) 

(1) Assign Articles (Assign.exe). This program displays a form with a 
list of all the article titles in the Submissi.db table with a check box (Fig. 4-41). A drop- 
down option box allows the administrator to select the session name. The session is 
selected and then each of the titles which belong in that session are checked. Submitting 
the form calls Assign2.exe. 

(2) Order Articles (Assign2.exe). The query string is retrieved and parsed 
to obtain the session record number and the list of titles. Article titles assigned to the 
selected session are displayed next to a form box which is used to assign an order to each 
article. Each box has a default number inserted when it is displayed. Once the numbers 
are changed to reflect the proper order of presentation, this form is submitted to 
Assign3.exe. 
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(3) Confirmation (Assign3.exe). This program retrieves the query string 
and parses it to obtain the session number and a list of titles and a list of title orders. The 
string list of titles and the string of title orders are matched so that the first title goes with 
the first order. Title record numbers are used to locate a title’s record. The session and 
order are then recorded. An HTML confirmation page is sent which lists the titles and 
their order. 

j. Assign Presentation Times to Articles 

Prior to printing the Abstract Catalog, presentation times must be included 
in the article information. Three programs are used to assign presentation times to each 
article. 

1 ) Choose Session (Times.exe), 

2) Assign Presentation Times (Times2.exe), 

3) Confirmation (Times3.exe). 

(1) Choose Session (Times.exe). An HTML table of all the current 
sessions is displayed (Fig. 4-42). Each session identifier is a hypertext link to 
Times2.exe with the session record number. 

(2) Assign Times (Times2.exe). Each article title assigned to the 
requested session is retrieved and presented with its order number and an HTML form 
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box to enter the presentation time (Fig. 4-43). After the times are entered, the form is 
submitted to Times3.exe. 

(3) Confirmation (Times3.exe). The query string is retrieved and parsed 
to obtain a string list of titles and times. The list is processed such that the title number 
is used to locate the record and then the time is placed in the database. An HTML 
confirmation page is sent which again displays the titles with their order and time. 

A. Modify Passwords 

System administrator and reviewer identities and passwords are 
maintained with this segment. System administrators and reviewers are referred to as 
“users.” Users can be modified, added, and deleted. Note that only system 
administrators have access to the Administration sub-system. Reviewers will only have 
access to the Review sub-system. 

1 ) Selection options (PassWds.exe), 

2) Modify Password (PwdMod.exe), 

3) Add new user (PwdAdd.exe), 

4) Addition confirmation (PwdAdd2.exe), 

5) Delete a user (PwdDeI.exe), 

6) Deletion confirmation (PwdDel2.exe). 
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(1) Selection options (PassWds.exe). This program sends an HTML 
instruction/option page which is divided into sections for System Administrators and 
Reviewers (Fig. 4-44). A form is displayed which allows system administrators to 
modify passwords. New passwords must be entered twice for verification. Submitting 
this form calls PwdMod.exe. Additional options are to add (PwdAdd.exe) and delete 
(PwdDeLexe) users. 

(2) Modify Password (PwdMod.exe). This program retrieves the form 
data, including an identifier for whether the ED is for a system administrator or a 
reviewer. It then retrieves the old password from the password table (Admin.db) and 
authenticates the request. If the old password is valid, and the two new passwords 
match, then the old password is replaced with the new. An HTML confirmation page is 
sent with the option to “Modify more Passwords”. 

(3) Add new user (PwdAdd.exe). This program creates an HTML page 
with a form to enter a new system administrator or reviewer ID and password (Fig. 4-45). 
The password must be entered twice to be valid. Submitting the form calls 
PwdAdd2.exe. 



(4) Addition confirmation (PwdAdd2.exe). Creates an HTML page 
which confirms the new ID and offers the option to “Modify more Passwords”. 
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(5) Delete a user/reviewer (PwdDeLexe). An HTML page is created with 
a form for entering the system administrator or reviewer ID and password to be deleted 
(Fig. 4-46). Submitting the form calls PwdDel2.exe. 

(6) Deletion confirmation (PwdDel2.exe). This program creates an 
HTML page which confirms the deletion and offers the option to “Modify more 
Passwords”. 



L Print out a Session list 

This single program (P_Sess.exe) displays a list of the current sessions on 
the screen (Fig.4-47). The display is suitable for viewing or printing out using the Web 
browser’s print screen function. 

m. Print out Article data 

This function prints out information about an article. It is intended for use 
with the current review process. This information will be printed, along with the 
Extended Summary, and given to the reviewer. Options allow information about a single 
article to be displayed on the screen or printed to a file. 

1 ) Select Article or All (P_Artl.exe), 

2) Print Article to screen (P_ArtI2.exe), 
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3) Print Articles to a file (P_ArtfiI.exe). 



(1) Select Article or All (P_ArtI.exe). An HTML table is displayed 
which contains every article title in the Submissi.db table as a hypertext link to 
P_ArtI2.exe (Fig. 4-48). There is also a hypertext link which provides the option to print 
article information for every article to a file. 

(2) Print Article (P_Artl2.exe). This program first looks for an article 
record number which would be passed if the user selected an article title hypertext link. 

If no record number is passed, then the user selected the “Print to a file” hypertext link. 

In this case, an HTML page is created by P_Artl2.exe which allows the user to enter a 
name for file in which all article information will be stored. Submitting that form calls 
P_Artfil.exe. IfP_ARTL2.exe is passed an article record number, then the record is 
located and retrieved. Information is then displayed in HTML format suitable for 
printing with the Web browser’s print screen fimction (Fig. 4-49). 

(3) Print Articles to file (P_Artfil.exe). This program retrieves all 
articles from the Submissi.db table. The necessary information is then printed to a file 
with the user given name. The file is always given an extension of .art and is placed in 
the C:\My Files\Thesis directory available for FTP download by the system administrator. 

n. Print out Accept /Reject letter 
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After review, articles are marked as either accepted or rejected. This 
ftmction generates the accept/reject letters to be mailed to submittors. Letters can be 
generated for all the articles at once (to a file only), or for individual letters (to the screen 
or to a file). 

1) Instructions and options (P_Accept.exe), 

2) Print all to a file (P_AccAll.exe), 

3) Select Article (P_Accep2.exe), 

4) Choose screen or file (P_Accep3.exe), 

5) Print to screen (P_AccScr.exe), 

6) Print to file (P_AccFil.exe). 

(1) Instructions / Options (P_Acceptexe). An HTML page is created 
which describes the three options available and provides links to each (Fig. 4-50). 

(2) Print all to a file (P_AccAIl.exe). This program generates an accept 
or reject letter, as designated by the “accept” field in the Submissi.db table, for every 
article in the database. The user has the opportunity to provide a name for the output file. 
The file is always given an extension of .let and is placed in the C:\Website\Download\ 
directory for FTP download by the system administrator. 

(3) Select Article (P_Accep2.exe). This program is called when the user 
wishes to print a single letter. An HTML table is generated with every title as a hypertext 
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link to P_Accep3.exe. 



(4) Choose screen or file (P_Accep3.exe). The option is given to print a 
letter to either the screen or to a file. The article record number is passed to the 
appropriate program (P_AccScr.exe or P_AccFiLexe) 

(5) Print to screen (P_AccScr.exe). The letter is generated to the screen 
in an HTML page. The page is suitable for printing by the user’s Web browser. 

(6) Print to file (P_AccFiLexe). The letter is generated to a file which the 
user names. The file is always given an extension of .let and is placed in the 
C:\Website\Download\ directory for FTP download by the user. 

0. Print Abstract Catalog 

This function organizes the articles, in order by session, and prints them in 
the Abstract Catalog format to a file. 

1) Print Initiation (P_AbsCaLexe), 

2) Print Confirmation (Prabsca3.exe). 

(1) Print Initiation (P_AbsCatexe). Utilizing the Sessions.db, 
Submission$.db, and Author.db tables, this function sorts the articles by session and 
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prints the appropriate data to a file in the format of the Abstract Catalog. The user has 
the opportunity to provide a name for the output file (Fig. 4-51). The file is always given 
an extension of .cat and is placed in the C:\Website\Download\ directory for FTP 
download by the user. 

(2) Print Confirmation (Prabsca3.exe). Confirming the successful 
completion of the print job, the name of the file is again displayed and a link is provided 
which automatically downloads the file to the system administrator’s host. 

4. Applications 

Three applications are required to operate the WWW Conference Information 
System, O’Reilly & Associates’ WEBSITE web server, FTPD FTP Server, and Borland’s 
PARADOX Relational Database. Following is a brief discussion of the specific 
implementations of these programs. 

0 . O'Reilly & Associates’ WEBSITE Web Server 

The WEBSITE [Ref 6] software is responsible for maintaining the 
connection between the PC hardware and the Internet. The PC has been assigned a static 
IP address (131.120.20.70) and maintains a continuous Internet connection via the ECE 
department’s local area network. When an Internet user accesses the PC’s address. 
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WEBSITE automatically displays lndex.html in the C:\Website\Htdocs directory. 
WEBSITE then displays other HTML pages or executes Delphi programs as 
implemented within the system. 

All HTML pages (other than Index.html) are stored in the 
C:\Website\Htdocs\Prototype directory. All Delphi executables are stored in the 
C:\Website\cgi-win directory as required by WEBSITE. The programming code for each 
executable is stored in the C:\Delphi\Bin directory. The queries conducted throughout 
the system are initiated by WEBSITE passing standard query language (SQL) to 
Borland’s Paradox which maintains the system database and is discussed in part c. 

WEBSITE is also responsible for limiting a user’s access. By default, 
WEBSITE limits a user’s access to no lower than the C:\Website\Htdocs directory. This 
protects the root directory from unauthorized access. WEBSITE also handles FTP 
downloads for users. Any file that has the extension “.exe” or “.html” and resides in a 
sub-directory of C:\Website\Htdocs can be downloaded by any Internet user. This is an 
important consideration when placing files on the hard drive. File uploads (i.e. loading 
files to the PC) are handled strictly by the FTPD FTP server discussed in the next section. 

b. FTPD FTP Server 

The FTPD FTP Server is shareware which handles file uploads to the 
system [Ref 7]. It was installed to allow users to upload Extended Summaries which 
contain graphics and equations not suitable for ASCII text that HTML forms are limited 
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to. Allowing uploads can be risky because anything can be uploaded. System 
administrators are warned not to execute any executable (.exe) programs found in the 
upload directory. Any such program found should be deleted immediately. The only 
legitimate uploads are post script (.ps) Extended Summaries. 

Security of uploaded files is maintained by limiting users to one directory 
and disabling the ability to list directory contents. Thus a user may upload his/her own 
file, but will not be able to determine the contents of the upload directory. FTPD has not 
been registered. All attempts to contact the company have failed. Thus, no technical 
support is available. This is an area for future improvement. More powerful and flexible 
FTP servers are commercially available. 

c. Borland ’s PARADOX Relational Database 

Implementation of the PARADOX database for this system mirrored the 
one in use by conference administrators. Seven tables were constructed to maintain data 
on the Contact Authors, Submissions, Sessions, Ke)words, and system passwords. The 
tables were initially designed using SALSA [Ref 10], an object-oriented database design 
tool. SALSA generated reports and a brief description of the SALSA program are 
included in Appendix C. 

A relational database stores not only data, but also maintains relationships 
between different tables. As mentioned above, the database we implemented contains 
seven separate tables. 
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1) Author.db contains personal information on each contact author. 

2) Submissi.db contains information about an author’s paper. 

3) TempAutb.db temporarily stores changes to an author’s personal 
information until it is verified by conference personnel. 

4) SessioD.db stores session mnemonics that indicate when a particular 
session will occur. 

5) Keyword.db maintains a list of keywords authors may use to classify their 
papers. 

6) Admin.db stores user ID’s and passwords for system administrators. 

7) Review.db stores user ID’s and passwords for article reviewers. 

By using separate tables to store this information, an author can submit more than 
one paper without causing problems for the database. Each contact author is given a 
unique identifier that relates him/her to each of his/her submissions. Similarly, an 
author’s submissions are related to kc 3 words, and a session number. Thus queries can 
be performed on either an author or on a submission and all information from any table 
can be retrieved. The names and contents of each database table is listed in Appendix C. 

5. System Web Pages 

The following pages are screen captures of the web pages created by the Asilomar 
Conference System. The pages were viewed with Netscape Navigator Gold 3.0 [Ref 8] 
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and captured with Corel Draw Capture. 
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Figure 4-4. Introl0.htm. 
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Figure 4-5. Infol2.htm. 



68 




Figure 4-6. Extsumm.htm. 
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Figxire4-7. Manualll.htm. 
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Figure 4-8. Searchl3.htm. 
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Figure 4-9. D13.exe: No Author Found in Database. 
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Figure 4-10. D13.exe; One Author Found. 



73 




Figure 4-11. D13.exe: Submitting Author’s Name Matches Another in the Database. 
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Figure 4-12. D13.exe; Multiple Matches Found in Database. 
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Figure 4-13. Information Page Generated by Addl32.exe or Editl32.exe. 
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Figure 4-14. D_Submit.exe Part 1. 



77 




Figure 4-15. D_Submit.exe Part 2. 
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Figure 4-16. Dpaper.exe Part 1. 
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Figure 4-17. Dpaper.exe Part 2. 
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Figure 4-18. D2paper.exe. 
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Figure 4-19. Admin20.htm. 
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Figure 4-20. Aminpwd.exe. 
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F igure 4-21. Auchangs. exe. 
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Figure 4-22. Viewchng.exe Part 1. 
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Figure 4-23. Viewchng.exe Part 2. 
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Figure 4-24. Inputau.exe. 
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Figure 4-25. Authsrch.exe: No Match Found in Database. 



88 






Figure 4-26. Authsrch.exe: Unique Match Found in Database. 
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Figure 4-27. Authsrch.exe: Multiple Matches Found in Database. 
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Figure 4-28. Artleditexe. 
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Figure 4-29. Artsrch.exe. 
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Figure 4-30. Artlauth.exe. 
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Figure 4-31. Sessions.exe. 
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Figure 4-32. Sessedit.exe. 
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Figure 4-33. Sessaddexe. 
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Figrue 4-34. Sessdel.exe. 
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Figure 4-35. Keywords.exe. 
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Figure 4-36. Keyedit.exe. 
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Figure 4-37. Keyaddexe. 
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Figure 4-38. Keydel.exe. 
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Figure 4-39. Invite.exe. 
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Figure 4-40. Choose.exe. 
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Figure 4-41. Assign.exe. 
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Figure 4-42. Timesl.exe. 
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Figure 4-43. Times2.exe. 
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Figure 4-44. Passwds.exe. 
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Figure 4-45. Pwdadd.exe. 
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Figure 4-46. Pwddel.exe. 
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Figure 4-47. P_Sess.exe. 
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Figure 4-48. P_Artl.exe. 
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Figure 4-49. P_Artl2.exe. 
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Figure 4-50. P_Accept.exe. 
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Figure 4-51. P_abscat.exe. 
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V. CONCLUSION & RECOMMENDATIONS 



A. CONCLUSION 



The Asilomar Conference on Signals, Systems, & Computers has begun the 
transition to the information age. The goals of this thesis were to: 1) analyze the 
Asilomar Conference on Signals, Systems, & Computers, 2) improve the article 
submission and review process, 3) develop a target information system and, 4) 
implement a portion of the target system. By attaining these goals, we have not only 
streamlined and automated many of the processes of the Asilomar Conference, but also 
have developed a framework for an Internet conferencing system. In the future, it could 
no longer be necessary for people to gather in a single geographic location for such a 
conference. By exploiting the power of the Internet, registration, reviewing, database 
maintenance, and even presenting can be done from any Internet connection. 



B. UPGRADES TO CURRENT SYSTEM 

1 . Change the current Delphi executable programs to 32-bit executables. 

This improvement could be accomplished by upgrading to Delphi 2.0 and 
importing the current programs and re-compiling them. Some changes will need to be 
made to insure compatibility. The 32-bit programs should run faster than the current 16- 
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bit programs. Switching to Delphi 2.0 would also allow the use of HREF Tools Corp’s 
WEBHUB [Ref 4] which more efficiently handles multiple users and increases the 
performance of the server software. 

Executables created by either version 1.0 or 2.0 of Delphi have a small drawback. 
Variable information cannot be passed between executable programs. That is, once a 
program has completed its function and calls another program, all variable information 
(known as program state) is lost. WEBHUB, which is only compatible with Delphi 2.0, 
maintains information stored in variables after an executable is complete. This is 
enhanced by the fact that WEBHUB can maintain program state for multiple users 
accessing the same portion of the system. 

2. Purchasing a more powerful FTP server. 

A commercially available FTP server would improve upon the capability and 
security of the shareware program currently in place. Purchased software would also 
include technical support not available with the unregistered version of FTPD. 



C. NEW FEATURES 



1. Reviewing articles on-line. 



Automating the review process would enable reviewers to review papers 
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remotely. The present methodology could be modified to include making the review 
“blind” or even “double-blind” to ensure fairness. Papers could be reviewed by multiple 
reviewers who each give an accept or reject vote along with whatever comments they 
feel are appropriate. The final determination could be made manually, human tallying of 
the votes, or automatically, with the system counting the votes and only presenting “tie- 
votes” for human determination. The automated tally system could even allow for 
weighting the votes by rating reviewers by experience or expertise. 

2. Scheduling. 

An automatic scheduling routine could be built to schedule the selected articles 
into sessions. Currently assigned by the reviewers, automating this process would relieve 
the reviewers of this tedious task. Computer generated schedules could be modified as 
necessary by the System Administrator. 

3. Registration. 

Allowing attendees to register on-line would further reduce the mailing and 
administrative costs to participants and administrators for the conference. On-line 
payment capability would be a pre-requisite for this implementation. An ideal system 
would also coordinate requests for Hotel room, rental car, and dinner reservations. 
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4. 



Send Mail Utility. 



An attempt was made to implement a shareware utility for Delphi called 
“SendMail” [Ref 9]. This utility would automatically generate an e-mail 
acknowledgement once the user had completed the submission process. The 
functionality was initially implemented into the author submission sub-system, but was 
removed because the shareware version halted the server each time an e-mail message 
was sent. The code for SendMail is still in place, but has been commented out. The 
registered version is supposed to eliminate this problem. This feature, which would 
acknowledge receipt of a user’s inputs, increases the reliability of the data and the users’ 
sense of security about the system. 
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APPENDIX A. DELPHI TUTORIAL 



A. OVERVIEW 



In setting up a Windows based web server there are four basic software 
components. First, web server software such as Website [Ref 6], WinHTTPD [Ref 5], 
or ZBServer [Ref 1 1] is needed to link a computer to a specific Internet address. This 
software will activate your homepage when your IP address is accessed by a user. Web 
server software packages vary greatly in price and performance but there are similarities 
in the way all of them operate. In general, once set up, web servers will: 

1) assume you have already established an Internet connection with a valid 
IP address 

2) create the following sub-directories below its own: 

A) cgi-bin - for Windows Perl cgi scripts 

B) cgi-win - for other Windows cgi scripts. 

C) cgi-dos - for DOS Perl cgi scripts 

D) htdocs - for HTML (Hyper Text Markup Language) documents 

3) assume you have already created an HTML document that will serve as 
your homepage. This document usually must be named “Index.htm” and 
placed in the “htdocs” directory. 

(Note: “cgi” stands for Common Gateway Interface and is merely a protocol that scripts 
must follow. A script is a program that executes on the web server and interacts with 
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HTML documents.) 



The second software item you will need is HTML documents. These documents 
are written in plain text (any text editor will suffice) and determine how and what a web 
browser will display. There are many programs available as shareware that greatly 
simplify the process of creating HTML documents. These include: HTMLAssist [Ref 
12], and HotDog [Ref 13]. HTML allows the presentation of text, graphics, sounds, and 
animation, and will allow users to navigate through your pages via hypertext links. 

It is possible to run a web site with just the two software packages mentioned 
above, however users will be limited to merely looking at pages you present. If you want 
users to be able to interact with your pages, you will need at least one more piece of 
software. This piece is a scripting language. Languages such as Perl, Delphi, and Cold 
Fusion create executable files that are run whenever a user accesses your page. These 
executables can perform such tasks as read data from a form, then create an entirely new 
page using that data. We will see an example of this later in this tutorial. 

Although scripting languages allow users to interact with web pages, information 
will be not be recorded unless the program interacts with a database of some sort. This is 
the final software requirement. Newer scripting languages have built in database 
interactions and serve as the go between for web pages and database operations. Data 
storage, retrieval, queries, and reports can all be performed via a web page using a web 
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server, HTML documents, a scripting language, and a database. 



This was a brief overview of the software components required to run a PC based 
web server. In general web server software is relatively simple to set up and maintain. 
The challenge lies in learning and using a scripting language to develop the types of 
applications that will be useful to you and your users. The rest of this tutorial will focus 
on using Borland Delphi Application Development software as a scripting language. 
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B. SAMPLE APPLICATION 



The first step in designing any web application is developing a general plan of 
how each page will look, what functions it will perform, and how the user will navigate 
through it. The example I will use for this tutorial is an application that runs a game 
called “MadLib.” In this game, the user is required to enter in words of a specific type, 
then the application uses those words in a pre-formatted story and creates a new web 
page with the story on it. My plan for this application is as follows; 

1) I will need an input form to read in the user’s words 

2) I can create that form using basic HTML commands 

3) I will need a CGI script to: 

- get those words off the form 

- create a new web page with the story using those words 

Now that I have decided on what I need, I can create the necessary components. 
The HTML form which will input user’s words then load the CGI application appears 
below. Explanatory comments are incorporated with the format < -- comments — >. 



<HTML> 

<HEAD> 

<TITLE> Delphi test: A MadLib Input form</TITLE> 
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<CENTERxHl> MadLib Input Form</Hlx/CENTER> 

<HR> 

</HEAD> 

<BODY> 

A "MadLib" is a game where I take your inputs for some words and put these words into 
a story. Depending on how <EM>creative</EM> you are, the results can be hilarious! 

<P> 

Please provide appropriate responses for the following fields. Have fun!<P> 

<HR> 

<CENTER> 



< — ****** The following statement is the key statement of this form. It loads the CGI 
application “madlib.exe” when the “Submit” button is pressed on the form. Madlib.exe 
is the executable file that you will create in Delphi ******„ > 

<FORM METHOD="POST" ACTION="http://l 3 1 . 120.20.70/cgi-win/madlib.exe"> 

< -- The “Table” section creates an input table with visible “Borders” between cells. — > 



<TABLE BORDER> 

<TD>A girl's name: </TD> 
<TDxINPUT NAME="girl"x/TD> 
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<TR> 



<TD>A boy's name: </TD> 

<TDxINPUT NAME="boy"x/TD> 

<TR> 

<TD>A day of the week: </TD> 

< — The “Select” command creates a drop down menu with each “Option” available as a 
selection -- > 



<TDxSELECT NAME="day" TYPE="TEXT"> 
<OPTION>Sunday 
<OPTION>Monday 
<OPTION>T uesday 
<OPTION>Wednesday 
<OPTION>Thursday 
<OPTION>Friday 
<OPTION>Saturday 
</SELECT> 

</TD> 

<TR> 

<TD>A female relative</TD> 

<TD><SELECT NAME="relative" TYPE="TEXT"> 
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<OPTION>mother 



<OPTION>sister 

<OPTION>aunt 

<OPTION>grandmother 

</SELECT> 

</TD> 

<TR> 

<TD>An adjective: </TD> 

<TDxINPUT NAME— 'adjective"x/TD> 
<TR> 

<TD>A type of pet: </TD> 

<TD><INPUT NAME="pet"x/TD> 

<TR> 

<TD>A piece of furniture: </TD> 
<TDxENPUT NAME="fumiture"x/TD> 
<TR> 

<TD>A verb ending in "ing": </TD> 
<TDxINPUT NAME="ingverb"x/TD> 
<TR> 

<TD>A noun: </TD> 

<TDxINPUT NAME="noun"x/TD> 
<TR> 
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<TD>A time of day:</TD> 

<TDxSELECT NAME="time" TYPE="TEXT’’> 
<OPTION>moming 
<OPTION>aftemoon 
<OPTION>evening 
<OPTION>night 
</SELECT> 

</TD> 

<TR> 

<TD>A present tense action verb; </TD> 
<TDxINPUT NAME="actverb"x/TD> 

<TR> 

</TABLE> 

<P> 



< - The following “Input” statements are standard types. “Submit” sends the form to the 
URL listed in the “Form” statement at the beginning of the document. The “Value” 
statement applies a label to the button. - > 



<INPUT TYPE="submit" VALUE="Run the MadLib"> 



<INPUT TYPE="reset" VALUE="Start Over"> 



</CENTER> 
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</FORM> 



<P><HRxP> 

<A HREF="http://13 1. 120.20.70">Back to Asilomar Home Page</A><P> 
Questions or comments? Send mail to: <A HREF="mailto:mikec@nps.navy.mil"> 

mikec@nps.navy.mil</AxP> 

<i>This page last modified 12 February 1996.</i> 

</BODY> 

</HTML> 



The next step is to compose the CGI program. I will outline the steps I followed 

using Delphi’s Integrated Development Environment (IDE). 

1) To load the IDE click on the icon that resembles a house with columns 

2) You should be presented with a new project, if not select “New” from the “File” 
menu 

3) On the Component Palette, click on the CGI speed tab, click on the first CGI 
icon, then click in the form window. The first CGI icon (CGIEnvData) loads 
general scripting information to your form, the second (CGIDB) adds database 
specific components which will not be used in this example. 

4) The CGI element icon should have black boxes in the comers to indicate that it is 
selected. Look at the Object Inspector window. The ‘properties’ tab should be 
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selected. All of the default values are acceptable. If you click on the ‘events’ tab 
you should not see any available events. 

5) Click on a blank spot in the form window to deselect the CGI element. Now let’s 
look at the Object Inspector window. Make sure that the ‘properties’ tab is 
selected. For this example, all of the default values are acceptable. These values 
and their meanings are covered in section three of this tutorial. 

6) Now, click on the ‘events’ tab in the object inspector. This is a list of things that 
will happen when the user initiates certain actions. I want this application to 
create a form when it is called, so click on the box next to “OnCreate”. Now type 
a name for a procedure which will create a form (I used the name FormCreate in 
the example. You may use any number of characters, but no spaces). After you 
type the name, hit ‘enter’, this will bring up the code editor window. The 
following code will already have been added for you; 



unit Unitl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB; 

type 

Tforml = class(TForm) 

CGIEnvDatal; TCGBEnvData; 
procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 

public 

{ Public declarations } 

end; 

var 
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forml: Tforml; 

implementation 
{$R *.DFM} 

procedure Tforml.FormCreate( Sender; TObject); 
begin 

end; 

end. 



7) The cursor will be after the begin statement. You will now write the code that 
will a) get data from the HTML form, and b) create the new page using that data. 

8) The first step is to declare variables that the Delphi application will use. The 
variable declaration section comes before the ‘begin’ statement and after the 
‘procedure’ statement. You will need to declare one variable for each ‘INPUT 
NAME’ or ‘SELECT NAME’ in the HTML document. Note; to avoid confusion, 
use different variable names than what ‘NAMES’ were in the HTML document. 
Since we are reading in text from the form, the variables will be set to type 
‘string’. My variable declarations section was as follows; 



var 

dgirl ; string; 
dboy ; string; 
dday ; string; 
drelative ; string; 
dadjective ; string; 
dpet ; string; 
dfumiture ; string; 
dingverb ; string; 
dnoun ; string; 
dtime ; string; 
dactverb ; string; 



9) Now move the cursor past the ‘begin’ statement. Since this procedure uses 
CGBEnvData, we must add the line; with CGEEnvDatal do The ‘1’ on the end 
tells Delphi that this will be the first instance of CGIEnvData. 

10) Now on a new line type; begin This starts the procedure to gather 

and use the data. 

11) After this second ‘begin’ statement three statements must be added which need 
to be present in ALL Website Delphi applications. They are; 



129 



webSitelNIFilename := paramstr(l); 
application. onException ;= cgiErrorHandler; 
application.processMessages; 

12) The next line to be added: createStdout; tells Website that an HTML 

form will be created. 

13) The next line is: sendPrologue; This statement is accomplished 

before the creation of the new HTML document and is the begirming of the 
section where you will gather the user’s data. In the following section, you will 
be setting the Delphi variables you declared earlier, equal to the ‘INPUT 
NAMES’ from the form. The format for that is: 

variable := getSmallField( ‘INPUT NAME’ or ‘SELECT NAME’ ); 

In the example this section was as follows: 
dgirl .- getSmallField( 'girl' ); 
dboy := getSmallField( 'boy' ); 
dday := getSmallField( 'day' ); 
drelative := getSmallField( 'relative' ); 
dadjective := getSmallField( 'adjective' ); 
dpet := getSmallField( 'pef ); 
dfumiture := getSmallField( 'furniture' ); 
dingverb := getSmallField( 'ingverb' ); 
dnoun := getSmallField( 'noun' ); 
dtime := getSmallField( 'time' ); 
dactverb := getSmallField( 'actverb' ); 

1 4) Now that you have collected the data, you will create the new HTML document 
via the ‘send’ command. The general format is: 

send( ‘<HTML tag>’ + variables + ‘regular text’ ); 

Note that items within the ( ) can be in any order, so long as proper HTML is used. The 
key here is that variables may be included and are indicated by not being enclosed in 
quotes. There are a few special ‘send’ commands such as ‘sendHR’ and ‘sendTitle’ that 
should be self-explanatory. 

1 5) The following is a completion of the new HTML document: 



send( '<HTMLxHEAD>' ); 
sendTitle( 'Here is your custom-made MadLib...' ); 
send( '</HEADxBODY>' ); 
send('<center><hl>Here is your MadLib</hl>'); 
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send('Thank you for you input. </center>'); 

send('<p>'); 

sendHR; 

send('One ’ + dday + ” + dtime + + dboy + ' woke up and '); 
send('found his ' + drelative + " + dgirl + ’ ' + dingverb + ' '); 
send('her ' + dpet + ' on the ' + dfumiture + Amazed by ’); 
send('this affectionate display, ' + dboy + ' asked '); 
send(dgirl + "Would you like to ' + dactverb + ' my '); 
send(dadjective + " + dnoun + ’ when you"re done?'"); 
send( '<P>' ); 
send('<p>'); 
sendHR; 

send( '<a href="http://131.120.20.70">’ ); 
send( 'Return to the Asilomar Home Page</A>'); 
send( '<P>' ); 

send( 'This application was created using Delphi CGI components. '); 
send( ’<P>' ); 

send( 'Generated on ' + webdate(now) ); 
send( '</BODYx/HTML>' ); 

16) Now that the new form is complete you must tell Website. The next line is: 
closeStdout; 

17) Then: end; 

18) Now the applications opened just after the ‘begin’ statement must be closed via 
the command: closeApp( application ); 

19) Now another: end; to close the procedure 

20) And one more: end; to close the entire application 

21) Now let’s save the project. Select File | Save project as 

22) Delphi will prompt you to enter a name for the code you have just written. This 
name must be different than the name of the executable file which Delphi asks 
for next. For instance, if you planned to have the executable named “Madlib.exe” 
as in this example, you should name the PAS file something else. I used 
“Madlibpr.pas”. Now Delphi will ask for your project name. This is the time to 
enter the executable program’s name. 

23) You are now ready to compile! From the top menus, select Options 1 Project. 

The ‘Project Options’ window will open. On the quick tabs, select 
‘Directories/Conditionals’. The field ‘Output Directory’ is blank. This field 
indicates the directory where you want the compiled executable to be placed. 
Click on the down arrow to the right of the field and you will be given a choice of 
directories that you have previously entered. ‘C:\website\cgi-win’ is the directory 
for Windows CGI applications, so select that from the list or type it in manually. 
Click ‘OK’. 
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24) Now from the menu, select Compile | Compile. If you have any errors in your 
code, they will be highlighted in red A vaguely helpftil message will be 
displayed at the bottom of the window. Note that semi-colons or the absence of 
semi-colons is very important. One misplaced semi-colon can cause many errors. 
Generally spaces are not important to Delphi. Also notice that some words 
become bold when you type them (i.e. var, procedure, begin, etc.) these words 
are key words and may not be used elsewhere in your script. 

25) Once your code has compiled, you are done. Exit Delphi and fire up your web 
browser. A complete copy of the example code follows on the next two pages. 
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unit Madlibpr; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB; 



type 

Tforml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 

public 

{ Public declarations } 

end; 

var 

forml: Tforml; 
implementation 
{$R *.DFM} 

procedure Tforml. FormCreate(Sender: TObject); 
var 

dgirl : string; 
dboy ; string; 
dday : string; 
drelative ; string; 
dadjective : string; 
dpet ; string; 
dfumiture : string; 
dingverb : string; 
dnoun : string; 
dtime : string; 
dactverb ; string; 



begin 

with CGIEnvDatal do 
begin 

webSitelNlFilename ;= paramstr(l); 
application. onExcepti on := cgiErrorHandler; 
application. processMessages; ( need to have this ! } 
CreateStdout; 
sendPrologue; 

dgirl := getSmallField( 'girl' ); 
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dboy := getSmallField( 'boy' ); 
dday ;= getSmallField( 'day' ); 
drelative := getSmallField( 'relative' ); 
dadjective ;= getSmallField( 'adjective' ); 
dpet ;= getSmallField( 'pet' ); 
dfumiture := getSmallField( 'furniture' ); 
dingverb ;= getSmallField( 'ingverb' ); 
dnoun := getSmallField( 'noun' ); 
dtime := getSmallField( 'time' ); 
dactverb := getSmallField( 'actverb' ); 
send( '<HTMIxHEAD>' ); 
sendTitle( 'Here is your custom-made MadLib...' ); 
send( '</HEADxBODY>' ); 
send('<center><hl>Here is your MadLib</hl>'); 
send('Thank you for you input. </center>'); 
send('<p>'); 
sendHR; 

send('One ' + dday + " + dtime + ’, ' + dboy + ' woke up and '); 
send('found his ' + drelative + " + dgirl + " + dingverb + ' '); 
send('her ' + dpet + ' on the ' + dfumiture + '. Amazed by '); 
send('this affectionate display, ' + dboy + ’ asked '); 
send(dgirl + ', "Would you like to ' + dactverb + ' my '); 
send(dadjective + " + dnoun + ' when you"re done?"'); 
send('<p>'); 
sendHR; 

send( '<a href="http;//131.120.20.70">' ); 
send( Return to the Asilomar Home Page</A>'); 
send( '<P>' ); 

send( 'This application was created using Delphi CGI components. '); 
send( '<P>' ); 

send( 'Generated on ' + webdate(now) ); 
send( '</BODYx/HTML>' ); 

closeStdout; 

end; 

closeApp( application ); 

end; 

end. 



134 



Delphi may, at first, seem intimidating, even with previous programming 
experience. Our initial expectations were of a totally “point-and-click” interface, which, 
as we have seen is not the case. But having worked with several DeljAi applications, we 
have grown accustomed to the format. Many of the statements used in the example you 
just completed, are common to all CGI scripts. The layout is always the same. First 
come the variable declarations, then the standard Website statements, then prologue 
operations, then web page creation. Delphi also offers the power of a built in database 
which allows seamless compatibility. 

The scripting language is a close relative of Pascal. We did not include in this 
tutorial a discussion of programming techniques, explanations of variable types, and 
some other minor details. While it would take several himdred pages, all of this 
information is available in the online help which is quite extensive. Help for the CGI 
environment elements can be downloaded and incorporated into the Delphi help file. 
Del|Ai also has built-in interactive tutors which include a demonstration of how to build 
an application (non-CGI only) which can be used to increase familiarity with the program 
environment. 
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APPENDIX B. APPLICATION TEMPLATES 



An Application Template is a tool used in system design to determine which 
processes should be kept, discontinued, or re-engineered. For the Asilomar Conference, 
seven major processes were identified: 

1) Submissions via Postal Mail (Snail Mail), 

2) Submission via E-mail, 

3) The existing Asilomar Web page and FTP site, 

4) The article review process, 

5) Conference topic area determination, 

6) Presentations of articles, 

7) The hard copy proceedings of the Conference. 

Each of these processes is rated three different ways: 1) User satisfaction versus strategic 
value (Fig. B-1), 2) Technical quality versus strategic value (Fig. B-2) and, 3) Technical 
quality versus technical evolution (Fig. B-3). These three ratings are then totaled for 
each process and displayed in the Summarized Assessment graph (Fig. B-4). This graph 
indicates by quadrant which process should be: 1) replaced or discarded, 2) kept and 
tuned, 3) renovated or re-engineered and, 4) built upon. 
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Figure B-1. Technical Quality Versus Strategic Value. 
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Figure B-2. Technical Quality Versus Technical Evolution. 
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Technical Evolution 



High User Satisfaction versus Strategic Value 
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Figure B-3. User Satisfaction Versus Strategic Value. 
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Strategic Value 
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Figure B-4. Summarized Assessment. 



141 



Technical Evolution 

Strategic Value b -4 



APPENDIX C. SALSA DATABASE DESIGN TABLES 



Salsa is a shareware database design tool. Users enter information about the data 
they wish to store, and Salsa will create the necessary relational database tables. For 
example, in this thesis, it was determined that: 

1 ) A Contact Author could submit more than one Paper, 

2) A Paper could have more than one Author, 

3) A Paper could have more than one Keyword, 

4) A Presentation Session could have more than one Paper. 

These relationships, along with the format of each data element (last name, address, etc.) 
were entered into Salsa which generated the database tables. Salsa also automatically 
generates reports that give database managers a quick reference of the database structme. 
Figure C-1 shows the titles of each table created, and the labels for each data element 
within a table. Figures C-2 through C-8 summarize the data format for each data 
element. 
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Figure C-1. Database tables. 
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Value Type 


Length 


Author Number 


Unique 


1 


1 


Long Integer 




First Name 


None 


0 


1 


Text 


25 


Last Name 


None 


0 


1 


Text 


25 


Initial 


None 


0 


1 


Text 


1 


Honorific 


None 


0 


1 


Text 


5 


Institution 


None 


0 


1 


Text 


60 


Department 


None 


0 


1 


Text 


60 


Mail-stop 


None 


0 


1 


Text 


30 


Address 


None 


0 


1 


Group 




Street 


None 


0 


1 


Text 


40 


City 


None 


0 


1 


Text 


20 


State 


None 


0 


1 


Text 


18 


Zip 


None 


0 


1 


Text 


10 


Country 


None 


0 


1 


Text 


25 


Phone 


None 


0 


1 


Group 




LocalNumber 


None 


0 


1 


Text 


21 


FaxNumber 


None 


0 


1 


Text 


21 


E-mail 


None 


0 


1 


Text 


50 


Submissi 


None 


0 


N (No Limit) 


Semantic Object 





Formula Expression 



Figure C-2. Author.db data elements. 
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Semantic Object Report 

Album: ASILOMAR.ALB 



TEMPAUTH Semantic Object 



Caption: 

Description: 



Data Attributes: 




Minimum 


Maximum 








Attribute Name 


ID Status 


Required 


Allowed 


Value Type 


Length 


Formula Expression 


Edit Number 


Unique 


1 


1 


Short Integer 






Author Number 


None 


0 


1 


Text 


10 




First Name 


None 


0 


1 


Text 


25 




Last Name 


None 


0 


1 


Text 


25 




initial 


None 


0 


1 


Text 


10 




Honorific 


None 


0 


1 


Text 


10 




Institution 


None 


0 


1 


Text 


60 




Department 


None 


0 


1 


Text 


60 




Mail-stop 


None 


0 


1 


Text 


30 




Address 


None 


0 


1 


Group 






Street 


None 


0 


1 


Text 


40 




City 


None 


0 


1 


Text 


20 




State 


None 


0 


1 


Text 


18 




Zip 


None 


0 


1 


Text 


10 




Country 


None 


0 


1 


Text 


25 




Phone 


None 


0 


1 


Group 






LocalNumber 


None 


0 


1 


Text 


21 




FaxNumber 


None 


0 


1 


Text 


21 




E-mail 


None 


0 


1 


Text 


50 





Figure C-3. Tempauth.db data elements. 
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Semantic Object Report 

Album: ASILOMAR.ALB 



SUBMISSI Semantic Object 

Caption: 

Description: 



Data Attributes: 



Attribute Name 


ID Status 


Minimum 

Required 


Maximum 

Aliowed 


Value Type 


Length 


Paper Number 


Unique 


1 


1 


Long Integer 




Title 


None 


0 


1 


Text 


160 


Invited 


None 


0 


1 


Text 


1 


Accepted 


None 


0 


1 


Text 


1 


Author 


None 


1 


1 


Semantic Object 




Session 


None 


0 


1 


Semantic Object 




Order In Session 


None 


0 


1 


Text 


2 


Presentation Time 


None 


0 


1 


Text 


7 


Keyword 


None 


1 


3 


Semantic Object 




Abstract 


None 


0 


1 


Memo 




Contact Author Order 


None 


0 


1 


Text 


1 


Other Authors 


None 


0 


6 


Group 


First Name 


None 


0 


1 


Text 


25 


Last Name 


None 


0 


1 


Text 


25 


Initial 


None 


0 


1 


Text 


10 


Institution 


None 


0 


1 


Text 


60 


Order 


None 


0 


1 


Text 


1 



Formula Expression 



Figure C-4. Submissi.db data elements. 
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Semantic Object Report 

Album: ASILOMAR.ALB 



SESSION Semantic Object 



Caption; 

Description- 



Data Attributes: 

Attribute Name 

Session Number 

Neumonic 

Submissi 



ID Status 


Minimum 

Required 


Maximum 

Allowed 


Value Type 


Length Formula Expression 


Unique 


1 


1 


Long Integer 




None 


0 


1 


Text 


5 


None 


0 


N (No Limit) 


Semantic Object 





Figure C-5. Session.db data elements. 
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Semantic Object Report 

Album: ASILOMAR.ALB 



KEYWORD Semantic Object 



Caption: 

Descnption: 



Data Attributes: 




Minimum 


Maximum 






Attribute Name 


ID Status 


Required 


Allowed 


Value Type 


Length Formula Expression 


Identifier-Numeric 


Unique 


1 


1 


Long Integer 




Keyword 


None 


0 


1 


Text 


50 


Submissi 


None 


0 


1 


Semantic Object 





Figure C-6. Keyword.db data elements. 
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Semantic Object Report 

Album: ASILOMAR.ALB 



ADMIN Semantic Object 



Caption: 

Descnption: 



Data Attributes: 




Minimum 


Maximum 






Attribute Name 


ID Status 


Required 


Allowed 


Value Type 


Length 


Identifier-Numeric 


Unique 


1 


1 


Long Integer 




UserlD 


None 


0 


1 


Text 


20 


Password 


None 


0 


1 


Text 


20 



Formula Expression 



Figure C-7. Admin.db data elements. 



Semantic Object Report 

Album: ASILOMAR.ALB 



REVIEW Semantic Object 



Caption: 

Description: 



Data Attributes: 



Minimum Maximum 



Attribute Name 


ID Status 


Required 


Allowed 


Value Type 


Length 


Formula Expression 


Identifier-Numeric 


Unique 


1 


1 


Long Integer 






Reviewer! D 


None 


0 


1 


Text 


20 




Password 


None 


0 


1 


Text 


20 





Figure C-8. Review.db data elements. 
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APPENDIX D. SURVEY RESULTS 



1995 Conference Survey results. 

A total of 1 1 8 surveys were returned. Actual results are included but highlights 
are as follows: 

- Most attendees have WWW access already 

- Netscape was by far the browser of choice 

- Respondents were very positive about web access to: 

1) Retrieving registration materials, 

2) Submitting articles, 

3) And Previewing selected abstract. 

- Respondents were unsure about whether they would send comments to 
article authors about their articles. 

The following pages summarize the data collected from the 1 995 survey. 
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1 . What is your age? 



3% 


4 


0 under 25 years old 




10% 


12 


0 45 to 54 years 
old 


50% 


59 


0 25 to 34 years old 




9% 


11 


0 55 to 64 years 
old 


26% 


30 


0 35 to 44 years old 




1% 


1 


0 over 65 years old 


2. 


What is yoiu" gender? 










88% 


101 


0 Male 










12% 


14 


0 Female 










3. 


What is your occupation? 










40% 


47 


0 Academic Faculty 


15% 


18 


0 Design Engineer 


30% 


35 


0 Full-time Student 






0 Production Engineer 


1% 


1 


0 Engineering Management 




0 Other: 










9% 


10 


Research Engineer 










2% 


2 


Post Doc 










1% 


1 


Scientist 










1% 


1 


Industrial Engineer 










1% 


1 


Mathematician 










1% 


1 


Engineering Services 



4. If you are involved with signal processing, what best describes your area of sub- 



specialty? 










10% 


15 


0 Speech Processing 


2% 


3 


0 Biomedical Processing 


14% 


21 


0 Image Processing 


21% 


31 


0 Radar / Sonar / Array 
Processing 


11% 


16 


0 Computer Processing 


27% 


39 


0 Digital Processing 


12% 


18 


0 Comm. Processing 


2% 


3 


0 Networking 


5. 


What is your association with the IEEE? 






22% 


25 


0 Not a Member 


11% 


13 


0 Senior Member 


23% 


27 


0 Student Member 


6% 


7 


0 Fellow 


37% 


43 


0 Member 









6. How are you participating in this conference? 
7% 9 O Attending 
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83% 105 O Presenting an article 

10% 13 O Session Chair 



7. In the preceding 12 months, how often did you attend a professional conference? 



16% 


19 


0 None 


3% 


4 


0 6-8 times 


44% 


52 


0 1-2 times 






0 9-11 times 


36% 


43 


0 3-5 times 






0 12 or more times 


8. 


Which word processor do you use most often when writing professional work 




(articles, technical memos, etc.)? 








07% 


8 


0 WordPerfect 




0 


0 Amipro 


20% 


25 


0 Microsoft Word 


08% 


10 


0 Framemaker 


57% 


70 


OTeX 






0 Other: 



02% 3 Publisher 

02% 2 Interleaf 

01% 1 Wordstar 

01% 1 TROFF 

01% 1 Scientific 

word 

01% 1 Windows XP 



9. What t}^ of electronic on-line access do you have at this time? 

(Due to multiple answers by respondents, percentages are not included) 

104 O World-Wide-Web access O I have local e-mail on a 

LAN 

45 O I have a WWW home page O I’m not sure 

94 O I have Internet FTP access 
1 O I do not have any on-line access at this time 
107 01 have Internet e-mail access 

10. What type of electronic on-line access do you expect to have 12 months from 
now? 

(Due to multiple answers by respondents, percentages are not included.) 



96 


0 World-Wide-Web access 


0 local e-mail on a LAN 


63 


0 a WWW home page 


0 I’m not sure 


82 


0 Internet FTP access 




12 


0 1 will not have any on-line access 




94 


0 Internet e-mail access 





11. If you have World-Wide-Web access, what browser(s) do you use (select all that 

apply)? 
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(Due to multiple answers by respondents, percentages are not included.) 



99 O Netscape Navigator 

27 O Spyglass Mosaic 

3 O America Online Browser 

O COMPUSERVE Browser 
MACWeb 
O Prodigy Browser 
O Cyberjack 



O PSINet Pipeline 
O Netcruiser 

O Quarterdeck Internet Suite 
O Tradewind WINWeb / 

O Microsoft Win95 Browser 
O Other; 

4 NCSA Mosaic 



12. 


If you have on-line access, what is the highest data 


rate you normally use? 


3% 


3 


0 < 9600 Bps Modem 


4% 


5 


0 28.8 KBps Modem 


3% 


3 


0 9600 Bps Modem 


30% 


35 


0 greater than 28.8 (ISDN 
T1,etc) 


21% 


25 


0 14.4 KBps Modem 


39% 


46 


0 1 access the Internet 
through a LAN and do not 
know what data rate 1 use. 
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With respect to the professional 
conferences you attend, please rate 
how likely you would be to use the 
following capabilities, if they were 
available on-line. Assume that you 
have the required technical capabilities 
and tools. 



1 2 3 

Very Unlikely Not 
Unlikely Sure 



4 5 

Likely Very 

Likely 



1 1 . Retrieve Registration forms 
and information. 

Avg: 4.30 



1 

O 

10 



2 3 4 5 

O O 0 0 

3 3 25 74 



12. Submit an article abstract to be 

considered for presentation at 1 

the conference. O 

Avg: 4.32 8 



2 3 4 5 

o o o o 

4 6 22 75 



1 3 . Preview article abstracts that 

have been selected for 1 

presentation at the conference. O 

Avg; 4.17 10 



2 3 4 5 

0 0 0 0 

3 8 31 63 



14. Send comments about an 

article that has been selected 
for presentation at the 1 

conference to the author. O 

Avg: 3.51 11 



2 3 4 5 

0 0 0 0 

8 37 28 30 
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APPENDIX E. ARTICLE SUBMISSION SUB-SYSTEM CODE 



This appendix contains the HTML and Delphi code for the HTML documents and 
Delphi executables that comprise the Article Submission Sub-system. The relationships of 
the programs are depicted in Figure E-1. 



159 



IndeX|.htm 



Introl0.htm 



Manualll.htm 



Infol2.htm 

I 

ExtSumm.htm 



Authl3.12.htm 



Search 1 3, .htm 

I 



D13.exe 



Multii 32 .exe 




D Submit.exe 



DPappr.exe 

D2paper.exe 



Figure E-1. Article Submission Sub-system. 
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Author submission sub-system introduction; lntrol0.htm 



<HTML> 

<HEAD> 

<TITLE>Asilomar Signals, Systems, and Computers</TITLE> 

</HEAD> 

<BODY bgcolor=FFFFFF> 

<centerxH2>Asilomar Conference on<BR> 

Signals, Systems, & Computers</centerx/H2> 

<Hl>Electronic Submission Information</Hl> 

<P> Authors wishing to submit an article to the Asilomar 
Conference on Signals, Systems, & Computers via on-line 
submission not only save the cost of an envelope and a stamp, 
they help us keep down the cost of the conference by reducing the 
administrative burden on our staff 

<PxA HREF="#Capabilities"xB>What capabilities do I need to submit my Article on- 
line?</Bx/A> 

<PxA HREF="#Procedures"xB>What are the procedures to submit my Article on- 
line?</Bx/A> 

<PxA HREF=" search 1 3. htm"xB>I am ready to submit my article on-line !</Bx/A> 

<BR> 

<A NAME="Capabilities"> 

</Axhr><B>What capabilities do I need to submit my Article on-line?</B> 

<P> Authors wishing to submit an article on-line need the following 
capabilities: 

<OL> 

<li>Intemet access; 

<li>Forms capable Web Browser (HTML 3 or better); 

<li>FTP upload software 
<ul> 

<li><li>Download <a href="../files/ws_ftp.zip" >Windows 3.x (16-bit) FTP software </a> 
NOW! 

<lixli>Download <a href="../files/ws_ftp32.zip" >Windows 95 or NT (32-bit) FTP software 
</a>NOW! 

</ulx/ol> 

<hr> 

<A NAME="Procedures"> 
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</A><b>What are the procedures to submit my Article on-line?</B> 

<P>Submitting an article on-line to the Conference 
is done in the following steps; 

<OL> 

<li>Ensure you have FTP software, download it above if necessary. 

<BR> 

<li>Select "Submit an article" at the bottom of this page. The forms presented will allow you to: 
<UL> 

<lixli>Ensure that the information about you is accurate in our database; and 
<lixli>Submit the information about your paper (Title, Keywords, Abstract, and other 
Authors); 

</ulxBR> 

<i>Note: if you have already received a registration number, user ID and password, the above 
steps should be complete.</i> 

<BR> 

<li>Finally, submit an <A FIREF=extsumm.htm>Extended Summary</A> for your paper via 
FTP. 

<UL> 

<lixli>Extended summaries must be in Post Script (.PS) or ASCII (.txt) format 
<lixli>The filename of your summary should be your registration number; e.g. "lOl.PS" 
would be a valid filename. 

<AJLx/OL> 

<center> 

<P><hrxA NAME="Submit"> 

</A><h3>rm ready to <A HREF="searchl3.htm">submit my Article on-line !</Ax/h3> 
</centerxPxhr> 

<IMG SRC="asil2b0.gif " align=left alt="Asilomar facility"> 

Return to the < A 

HREF="http://131.120.20.70/Index.html">Asilomar Conference On-line Submission Page</A> 
</BODY> 

</HTML> 
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Extended Summaiy page; Extsumm.htm 



<HTML> 

<HEAD> 

<TITLE>Asilomar Signals, Systems, and Computers</TITLE> 

</HEAD> 

<BODY bgcolor=FFFFFF> 

<centerxH2>Asilomar Conference on<BR> 

Signals, Systems, & Computers</centerx/H2> 

<Hl>What is the Extended Summary?</Hl> 

<P>An extended summary is a concise summaiy of the significance of the submitted paper. It's 
length should be 

500 to 1000 words and can include figures. The extended summary will be used to evaluate the 
paper 

for significance and originality. 

<P>For electronic submission, the extended summary should be saved in Postscript Format and 

should include the 

Paper Title and the Author's name. 

<Pxhrxp> 

<IMG SRC="asil2b0.gif " align=left alt="Asilomar facility"> 

Return to the <A 

HREF="http://l 3 1 . 120.20.70/Index.html">Asilomar 
Conference On-line Submission Page</A> 

</BODY> 

</HTML> 
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Manual submission information page; Manualll.htm 



<HTML> 

<HEAD> 

<TITLE>Asilomar Signals, Systems, and Computers</TITLE> 

</HEAD> 

<BODY bgcolor=FFFFFF> 

<centerxH2>Asilomar Conference on<BR> 

Signals, Systems, & Computers</center></H2> 

<Hl>Manual Submission Information</Hl> 

<P> Authors wishing to submit an article to the Asilomar Conference on Signals, Systems, & 
Computers via mail must 

submit four copies of the abstract (50 to 100 words) and four copies of the extended summary 
(500 to 1000 words plus figures and tables). Submissions 
must include;<ul> 

<LI>Paper Information: title, each author's name and affiliation, and the technical area(s) with 
number(s) from the list provided on the 

<A HREF="http;//dubhe.cc.nps.navy.mil/~asilomar/asil96/call3.html "> "Call for 
Papers. "</AxBR> 

<LI>Point of Contact information; name, full address, telephone/fax numbers and e-mail 
address.<BR> 

<LI> Abstract: on a separate page, a camera ready copy of the abstract headed by the title, 
author's names and affiliations for printing in an 

Abstract Book which will be available at the Conference. The type used must be clear and 
readily legible, and all information (including title, 

author's names and affiliations) must fit within a 2.75" high by 6.5" wide format for printing in 
the Abstract Book.</UL> 



<P> Submissions should be sent to:<ul> 

Asilomar Conference Technical Program Chairman<BR> 
c/o ECE Department, Code EC<BR> 

Naval Postgraduate School<BR> 

833 Dyer Road, Room 437<BR> 

Monterey, CA 93943-512K/ULxBR> 

<h3>In the future</h3> 

Please consider submitting your articles via 

our on-line submission process. Not only does it save you the 
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cost of an envelope and a stamp, it helps us keep the cost of the 
conference lower by reducing the administrative burden on our staff. <BR> 



<P><hr><P> 

<IMG SRC="asil2b0.gif " align=left alt="Asilomar facility"> 
Return to the <A 

HREF— 'http://l 3 1 . 1 20.20. 70/Index.htmr>Asilomar 
Conference On-line Submission Page</A> 

</BODY> 

</HTML> 
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Submit information on-line: Searchl3.htm 



<HTML> 

<HEAD> 

<TITLE>AsiIomar Signals, Systems, and Computers</TITLE> 

</HEAD> 

<BODY bgcoloi=FTTFFF> 

<centerxH2>Asilomar Conference on<BR> 

Signals, Systems, & Computers</H2x/center> 

<Hl>Contact Author Information</Hl> 

<P> First we need to get some information about the "contact 
author." Remember that if the paper has only <emp>one<emp> 
author, the "contact author" is the author. But if there are 
<emp>multiple<emp> authors, the "contact author" is the one whom 
will be the point of contact for the purpose of this conference. 

<P> To determine whether you are currently in our database, 
please enter your name below: 

<FORM METHOD="POST" ACTION="../cgi-win/D13.exe "> 

<HR> 

<B>First Name: </BxINPUT NAME="first" Size="20" TYPE="TEXTt"> 

<B>Last Name: </BxINPUT NAME="last" Size="20" TYPE="TEXT"> 

<B>Middle Initial: </BxINPUT NAME="initial" Size="2" TYPE="TEXT"> 

<PxCENTERxINPUT TYPE="submit" Value="submit author"> 

<INPUT TYPE="reset" VALUE="Clear this form"x/CENTER> 

<PxhrxP> 

<IMG SRC="asil2b0.gif " align=left alt="Asilomar facility"> 

Return to the <A 

HREF="http://13 1 . 120.20.70/Index.htmr>Asilomar 
Conference On-line Submission Page</A> 

</BODY> 

</HTML> 
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unit D_13; 



The database query page: D13.exe 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

Authors: TTable; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

Query IFName: TStringField; 

QuerylLName: TStringField; 

Query lANumber: TIntegerField; 

Query 1 Initial: TStringField; 

Query 1 Honorific: TStringField; 

Query 1 Institution: TStringField; 

Query 1 Department: TStringField; 

Query IMailstop: TStringField; 

Query lAddress_Street: TStringField; 

Query lAddress City: TStringField; 

Query lAddress Zip: TStringField; 

Query 1 Country: TStringField; 

Query 1 Phone LocalNumber: T StringF ield; 

Query lPhone_FaxNumber: TStringField; 

QuerylEmail: TStringField; 

Query lAddress_State: TStringField; 

procedure FormCreate( Sender: TObject); 
procedure CGIDB 10nSendingHotField(currentRecord: TDataset; 
var s: OpenString); 

private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
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function MixCaseStr(S; string): string; 



implementation 
{$R *.DFM) 

function MixCaseStr(S: string); string; 

{ This function converts a string to Mixed case. 

That is Capital first letter and the rest lower case. } 
var 

i: integer; 
begin 

if (S[l] >= 'a') and (S[l] <= V) then 

Dec(S[l],32); 

for i := 2 to Length(S) do 

if (S[i] >= 'A') and (S[i] <= 'Z') and (S[i-l]o’ ') and (S[i-l]o>'e') and (S[i-l]o’-') and (S[i- 
l]o'c')then 
Inc(S[i],32); 

MixCaseStr ;= S; 

end; 



procedure TForml.FormCreate( Sender; TObject); 
var 

counter; integer; 
dFNamein: string; 
dLNamein: string; 
dinitialin; string; 



dFName: string; 
dLName; string; 
dinitial: string; 

dbANumber: string; 
dbFName: string; 
dbLName; string; 
dblnitial; string; 
dbHonorific: string; 
dblnstitution: string; 
dbDepartment: string; 
dbMailstop; string; 
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dbAddress Street: string; 
dbAddress City: string; 
dbAddress State: string; 
dbAddress_Zip; string; 
dbCountiy: string; 
dbPhone_LocalNumber; string; 
dbPhone_FaxNumber: string; 
dbEmail: string; 



TC: TDataSet; 



begin 

with CGIEnvDatal do 
begin 

webSiteINIFilename;=paramstr( 1 ); 
application. onExcepti on;=cgiErrorHandler ; 
application.processMessages; 

createStdout; 

sendPrologue; 

dF>Ianiein:= getsmallfield ('first'); { } 

dLNamein;= getsmallfield ('last'); { Get fields from search page } 

dlnitialin;= getsmallfield ('initial'); { ) 



dFName:= MixCaseStr (dFNamein); { Convert First Name to mixed case ) 

dLName:= MixCaseStr (dLNamein); { Convert Last Name to mixed case } 

if (dlnitialin[l] >= 'a') and (dlnitialin[l] <= 'z') then begin 
Dec(dlnitialin[l], 32); 

dlnitial:= dinitialin; ( Convert Middle Initial to upper case } 

end 

else dlnitial:= dinitialin; 



send C<HTMLxHEAD>'); { } 

SendTitle('Asilomar Signals, Systems, and Computers'); { Every page gets this } 
send('</HEADxBODYbgcolop=FFFFFF>'); { } 

end; 



counter := 0; 

with Queryl do (Check the database for the author First and Last name) 

begin 
close; 
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sql.clear; 

if (dLName o ") and (dFName o ") then 

sql.add('Select*FROM Author WHERE LName = + dLName + "" + 'AND FName = + 
dFName + "") 

else if (dFName = ") then sql.add('Select*FROM Author WHERE LName = + dLName 
open; 

fleldByName('ANumber').displayLabel;='Number'; 
fieldByNameCFName').displayLabel;=Tirst Name'; 
fieldByName('LName').displayLabel ;='Last Name'; 
fieldByName('Initiar).displayLabel:='MI'; 
fieldByName('Honorific').displayLabel:-Title'; 
fieldByName('Institution').displayLabel:- Institution Name '; 
fieldByName('Departmenf).displayLabel:=' Department Name '; 

Authors.Open; 

Authors.First; 

dbANumber ;= fieldByName('ANumber').Asstring; 
dbFName := fieldByName('FName').AsString; 
dbLName ;= fieldByNameCLName'). AsString; 
dblnitial := fieldByNameCInitial').AsString; 
dbHonorific := fieldByNameCHonorific').AsString; 
dblnstitution ;= fieldByName('Institution'). AsString; 
dbDepartment := fieldByName('Department'). AsString; 
dbMailstop := fieldByNameCMailstop'). AsString; 
dbAddress_Street := fieldByName('Address_Street').AsString; 
dbAddress_City ;= fieldByName('Address_City').AsString; 
dbAddress_State := fieldByName('Address_State'). AsString; 
dbAddress_Zip ;= fieldByName('AddressZip'). AsString; 
dbCountry := fieldByName('Country').AsString; 

dbPhoneLocalNumber := fieldByName('Phone_LocalNmnber').AsString; 
dbPhone_FaxNumber := fieldByName(Phone_FaxNumber'). AsString; 
dbEmail := fieldByName('Emair). AsString; 

counter := Recordcount; {How many records were returned} 

Authors. Close; 
end; 



with cgiEnvDatal do (Output the results of the query} 
begin 

if counter = 0 then begin (No records returned} 
send('<centerxHl>Add New Author Information</Hlx/center>'); 
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send C<P> Your name was not found in our current database. Please provide'); 
send (' the following information so we will be able to contact you.<HR>'); 

send(’<PxFORM ACTION="add 132.exe" METHOD="POST">'); 
send('<B>First Name: </BxINPUT NAME="FName" Size="25" TYPE="text" 

VALUE='"+ dFName 

send('<B> Last Name: </BxINPUT NAME="LName" Size="25" TYPE="text" 

Value="' + dLName 

send('<B> Middle Initial: </B><INPUT NAME="Initial" Size="2" TYPE="text" Value='" 
+ dinitial +"'xHR>'); 

send('<B>Honorific Title:</BxlNPUT NAME="Honorific" Size="5" TYPE="text">'); 
send('<PxB>Institution: </BxINPUT NAME="Institution" Size="60" 
TYPE="text">’); 

send('<brxB>Department: </BxINPUT NAME="Department" Size="60" 

TYPE="text">’); 

send('<br><B>Mail Stop: <7BxINPUT NAME="Mailstop" Size="30" 

TYPE="text">’); 

send('<PxB>Street address: </BxINPUT NAME="Address_Street" Size="40" 
TYPE="text">'); 

send('<brxB>City: </BxINPUT NAME="Address_City" Size="20" 

TYPE="text">'); 

send('<B>State: </BxlNPUT NAME="Address_State" Size=" 1 8" TYPE="text">'); 

send('<br><B>Zip Code: </BxlNPUT NAME=" Address_Zip" Size=" 1 0" 

TYPE="texf’>’); 

send('<B>Country: </BxINPUT NAME="Country" Size="25" TYPE="text'' 

VALUE="USA">'); 

send('<PxB>Telephone number (with Area/Country codes): </BxINPUT 
NAME="Phone_LocalNumber" Size="21" TYPE="text">’); 

send('<br><B>Fax number (with Area/Country codes): </BxINPUT 

NAME="Phone_Faxnumber" Size="21" TYPE="text">'); 

send('<brxB>E-mail: </BxINPUT NAME="Email" Size="50" TYPE="text">'); 

send('<P><CENTERxINPUT TYPE="submit" Value="Submit New Information"> 
<INPUT TYPE="reset"'); 

send('VALUE="Clear this form"x/CENTER>'); 
end 

else if counter = 1 then begin (Only one record returned} 

send('<centerxHl>Edit Author Information</Hlx/center>'); 

send C<P>We have located your record in the database. Please ensure that'); 

send (' your record is up-to-date by reviewing the information below and'); 

send (' making any changes that are necessary. For your protection, changes are not'); 

send (' made a part of the permanent record until verified by our staff. <BRxHR>'); 
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send('<PxFORM ACTION="editl32.exe" METHOD="POST">’); 
send('<INPUTNAME="ANumber" TYPE="hidden" Value="’+ dbANumber 
send('<B>First Name: </BxINPUT NAME="FName" Size="25" TYPE="text" 

VALUE="'+ dbFName 

send('<B> Last Name: </BxINPUT NAME="LName" Size="25" TYPE="text" 

Value="’ + dbLName 

send(’<B> Middle Initial; </BxINPUT NAME="Initial" Size="2" TYPE="text" Value=’" 
+ dblnitial +"'xHR>'); 

send('<B>Honorific Title;</BxINPUTNAME=’’Honorific" Size="5" TYPE="text" 
Value="' + dbHonorific 

send('<PxB>Institution; </BxINPUT NAME="Institution" Size="60" TYPE="text"'); 
send(' Value="' + dblnstitution 

send('<brxB>Department: </BxINPUT NAME="Department" Size="60" 

TYPE="text" Value=’" + dbDepartment 

send(’<brxB>Mail Stop; </BxINPUT NAME="Mailstop" Size="30" TYPE="text" 
Value- " + dbMailstop 

send('<PxB>Street address: </BxINPUT NAME="Address_Street" Size="40" 
TYPE="text"'); 

send('Value="’ + dbAddress_Street 

send(’<brxB>City: </BxINPUT NAME="Address_City" Size="20" TYPE="text" 

Value="' + dbAddress_City 

send('<B>State; </BxINPUT NAME="Address_State" Size="2" TYPE="text" 
Value="' + dbAddress_State 

send(’<brxB>Zip Code; </BxINPUT NAME=" Address_Zip" Size=" 1 0" 

TYPE=’’text" Value="’ + dbAddress_Zip 

send('<B>Country; </BxINPUT NAME="Country" Size="25" TYPE="text" 
Value="' + dbCountiy +"’> '); 

send('<PxB>Telephone number (with Area/Country codes):</BxINPUT 
NAME="Phone_LocalNumber" Size="2 1 

send(' TYPE="text"Value- " + dbPhone_LocalNumber 
send('<brxB>Fax number (with Area/Country codes): </BxlNPUT 
NAME="Phone_Faxnumber" Size="2 1 

sendC TYPE="text"Value="' + dbPhone_FaxNumber 

send('<brxB>E-mail : </BxINPUT NAME="Email" Size="50" TYPE="text" 

Value="' + dbEmail 

send('<p>The database has found a unique entry based on the first and last’); 
sendC name you submitted. If you believe this entry refers to another '); 
send('person, then you have two choices:'); 
send('<ulxli>If you might have used another name, then <a 
href=". ./prototype/search 1 3.htm">'); 

send(’Go back and re-submit your query; </a> of); 

send('<li>If this is your name but this is not your record, then <a href="../cgi- 
win/authl 32.exe">'); 

send(’Add your name to our records.</ax/ul>'); 
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send('<P>If this entry does refer to you, please review the information and update it as 
necessary, '); 

send('then click on "Submit Information" below<BR>'); 

send('<P><CENTER><rNIPUT TYPE="submit" Value="Submit Information"> <INPUT 
TYPE="reset"’); 

send('VALUE="Reset to Original Information"x/CENTERx/form>'); 

send('<PxFORM ACTION="d_submit.exe" METHOD="POST">’); 
send C<INPUT TYPE="hidden" Name="ANumber" Value='" + dbANumber 
send('<PxCENT1ERxINPUT TYPE="submit" Value="NO changes necessary - ALL 
data is correct! "x/CENTERx/form>'); 
end 

else begin {more than one record returned} 
send C<centerxH2>Asilomar Conference on<BR>'); 
send ('Signals, Systems, & Computers</centerx/H2>'); 
send('<PxHRxCenter>'); 

CGIDB 1 .drawTable; 

Query 1. close; 
send C</centerxp>'); 

send('The database has found more than one entry that matches your first'); 
send(' and last name. If your name is on the list then click on the "Author Number" which 
is'); 

send(' to the right of your name.'); 

send('<p>If you believe your record may be under another name,'); 

sendC you may <a href="../prototype/searchl3.htm">Resubmit your name</a>.'); 

send('<p>If this is your name but your record does not appear here,'); 

sendC you may <a href="../cgi-win/authl32.exe">Add your name to our records. </a>'); 

end; 

{ HTML page Footer } 

send('<P><hrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

send('Retum to the <A HREF="http;//131. 120.20.70/Index.html">Asilomar'); 

send('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; (with cglEnvDatal do) 

end; {Procedure TForml.FormCreate} 



procedure TForml. CGIDB 10nSendingHotField(currentRecord: TDataset; 
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var s: OpenString); 
begin 

s:='<A HREF="../cgi-win/multl32.exe?'+ currentrecord.fieldbyName('ANumber').AsString + 
+ currentrecord.FieldbyName('ANumber’). AsString + '</A>'; 
end; {Procedure TForml.CGIOnSendingHotField) 
end. 
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Add New Author Information page: Addl32.exe 



unit D132add; 

{ WHEN CALLED: This program is activated from D13.exe when the author name is not 
found in the AUTHOR Table ** OR ** from authl312.htm when adding a new instance of 
the author name (a new person with the same name)}. 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

Authors; TTable; 

CGIEnvDatal: TCGEEnvData; 

CGIDB 1: TCGIDB; 

procedure FormCreate(Sender: TObject); 



private 

{ Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml: TForml; 

dANumbenstring; 
dFName: string; 
dLName: string; 
dinitial: string; 

dFNamein; string; 
dLNamein: string; 
dinitialin: string; 

dHonorific; string; 
dinstitution. string; 
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dDepartment; string; 
dMailstop: string; 
dAddress_Street: string; 
dAddress_City: string; 
dAddress_State: string; 
dAddress_Zip: string; 
dCountry; string; 
dPhone AreaCode; string; 
dPhone_LocaINumber; string; 
dPhone FaxNumber: string; 
dEmail: string; 

function MixCaseStr(S: string): string; 



implementation 
{$R *.DFM) 

function MixCaseStr(S: string): string; 

{ This function converts a string to Mixed case. 

That is Capital first letter and the rest lower case. } 
var 

i: integer; 
begin 

if (S[l] >= 'a') and (S[l] <= 'z') then 

Dec(S[l],32); 

for i := 2 to Length(S) do 

if (S[i] >= 'A') and (S[i] <= 'Z') and (S[i-l]o' ’) and (S[i-l]o’-’) and (S[i-l]o'c') then 
Inc(S[i],32); 

MixCaseStr ;= S; 

end; 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do begin 



(Standard Header) 

webSiteINIFilename:=paramstr( 1 ); 
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application.onException:=cgiErrorHandIer; 
appl ication. processMessages; 
createStdout; 
sendPrologue; 

{Get data from FORM} 
dFNamein:= getsmallfield CFName'); 
dLNamein:= getsmallfield ('LName'); 
dlnitialin;= getsmallfield ('Initial'); 

dFName:= MixCaseStr (dFNamein); { Convert First Name to mixed case } 

dLName;= MixCaseStr (dLNamein); { Convert Last Name to mixed case } 

if (dlnitialin[l] >= 'a') and (dlnitialin[l] <= 'z') then begin 
Dec(dlnitialin[l], 32); 

dlnitial:= dinitialin; { Convert Middle Initial to upper case } 

end 

else dlnitial:= dinitialin; 

dHonorific:= getsmallfield CHonorific'); 
dInstitution:= getsmallfield ('Institution'); 
dDepartment” getsmallfield (Department'); 
dMailstop:= getsmallfield CMailstop'); 
dAddress_Street;= getsmallfield ('Address_Street'); 
dAddress_City;= getsmallfield ('Address_City'); 
dAddi'ess_State:= getsmallfield ('Address_State'); 
dAddress_Zip:= getsmallfield ('Address_Zip'); 
dCountry.- getsmallfield ('Country'); 

dPhone_LocalNumber:= getsmallfield ('Phone_LocalNumber'); 
dPhoneFaxNumber.- getsmallfield ('PhoneFaxnumber'); 
dEmail;= getsmallfield ('Email'); 

(Append data to AUTHOR Table} 

Authors.open; 

Authors.AppendRecord([nil, dFName, dLName, dlnitial, dHonorific, dinstitution, 
dDepartment, dMailstop, 

dAddress_Street, dAddress_City, dAddress_State, dAddressZip, dCountry, 
dPhone LocalNumber, dPhone FaxNumber, dEmail]); 

Authors, close; 

(Get the Author number for the new record } 

Authors.open; 

Authors, last; 

dAN umber ;=Authors. fieldbyname(' AN umber'), asstring; 

Authors, close; 
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(Send the Thankyou Paper page with the link to ADD Paperl32.htm } 
send ('<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEAD><BODY bgcolor=FFFFFF>'); 
send C<centerxH2>Asilomar Conference on<BR>'); 
send CSignals, Systems, & Computers</H2>'); 
send('<PxHR>’); 



send C<P>Thank you for your input ' + dHonorific + ' '+ dFName +' '+ dLName +'. '); 
send ('Your information has been added to our records.'); 

send C<FORM ACTION="../cgi-win/d_submit.exe" METHOD="POST">'); 
send C<INPUT TYPE="hidden" Name="ANumber" Value='" + dANumber +'">'); 
send C<PxINPUT TYPE="submit" Value="Continue with the Submission Process">'); 
send C</CENTER>'); 

send('<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

send(Retum to the <A HREF="http://131.120.20.70/index.html">Asilomar'); 
send('Conference On-line Submission Page</A>'); 
send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); { don't leave form around } 
end; (with CGBEnvDatal} 
end; {FormCreate} 
end. 
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Edit Author information page; Editl32.exe 



unit D132edit; 

( WHEN CALLED: This program is activated from D13.exe when the author name is 
found in 

the AUTHOR Table } 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel ; TDataSource; 

CGIEnvDatal: TCGBEnvData; 

CGIDB 1; TCGBDB; 

TempAuthor: TTable; 

procedure FormCreate(Sender: TObject); 



private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

dANumber; string; 
dANumberint: integer; 
dFName: string; 
dLName: string; 
dinitial; string; 
dHonorific: string; 
dinstitution: string; 
dDepartment: string; 
dMailstop; string; 
dAddress_Street; string; 
dAddress_City: string; 
dAddress_State: string; 
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dAddress_Zip: string; 
dCountry; string; 
dPhone AreaCode: string; 
dPhone LocalNumber; string; 
dPhone FaxNumber; string; 
dEmail; string; 



implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do 
begin 

{Standard Header) 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application. processMessages; 

createStdout; 

sendPrologue; 

dANumber.- getsmallfield ('ANumber'); 
dFName;= getsmallfield ('FName'); 
dLName:= getsmallfield CLName'); 

dlnitial;= getsmallfield ('Initial'); 
dHonorific;= getsmallfield ('Honorific'); 
dInstitution;= getsmallfield ('Institution'); 
dDepartment:= getsmallfield ('Department'); 
dMailstop:= getsmallfield (iVlailstop'); 
dAddress_Street:= getsmallfield ('Address_Street'); 
dAddress_City;= getsmallfield ('Address_City'); 
dAddress_State:= getsmallfield ('Address_State'); 
dAddress_Zip;= getsmallfield ('Address_Zip'); 
dCountry;= getsmallfield ('Country'); 

dPhone_LocalNumber:= getsmallfield ('PhoneLocalNumber'); 
dPhone_FaxNumber;= getsmallfield CPhone_Faxnumber'); 
dEmail” getsmallfield (Email'); 

dANumberint:= StrToInt(dANumber); { Convert the dANumber back to an integer ) 
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with TempAuthor do begin 



(Open TempAuthor table and append new record } 

open; 

AppendRecord([nil, dANumberint, dFName, dLName, dinitial, dHonorific, dinstitution, 
dDepartment, dMailstop, 

dAddress Street, dAddress City, dAddress State, dAddress Zip, dCountry, 

dPhone_LocalNumber, dPhone FaxNumber, dEmail]); 

close; 

end; (with TempAuthor} 

(Send the Thankyou Paper page with link to ADD Paperl32.htm } 
send C<HTMLxHEAD>'); 

SendTitle(Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 
send C<centerxH2>Asilomar Conference on<BR>'); 
send ('Signals, Systems, & Computers</H2>'); 
send('<PxHR>'); 



send C<P>Thank you for your input ' + dHonorific + ' '+ dFName +' '+ dLName +'. '); 
send ('Your information has been stored in order to update our records.'); 
send (' To protect your record, changes will not become permanent until verified by our 
staff); 

send C<FORM ACTION="../cgi-win/d_submit.exe" METHOD="POST">'); 



send C<INPUT TYPE="hidden" Name="ANumber" Value='" + dANumber +'">’); 



send C<PxINPUT TYPE="submit" Value="Continue with the Submission Process">'); 
send C</CENTER>'); 

send('<PxhrxPxlMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

send(Retum to the <A HREF="http;//131.120.20.70/index.html">Asilomar'); 
send('Conference On-line Submission Page</A>'); 
send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); ( don’t leave form around } 
end; (with CGBEnvDatal } 
end; (FormCreate} 
end. 
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More than one Author’s name found: Multil32.exe 



unit D132mult; 

{ WHEN CALLED: This program is activated from D13.exe when more than one author 
name match is found in the AUTHOR Table.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi, Cgidb; 

type 

TForml = class(TForm) 

CGIDB 1; TCGIDB; 

CGIEnvDatal; TCGIEnvData; 

Authors. TTable; 

DataSourcel: TDataSource; 
procedure FormCreate(Sender: TObject); 

private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 



implementation 
($R *.DFM) 



procedure TForml.FormCreate( Sender; TObject); 
var 

dANumber; string; 
dbFName; string; 
dbLName; string; 
dblnitial: string; 
dbHonorific; string; 
dblnstitution; string; 
dbDepartment: string; 
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dbMailstop: string; 
dbAddress_Street; string; 
dbAddress_City: string; 
dbAddress_State: string; 
dbAddress Zip; string; 
dbCountry: string; 
dbPhone LocalNumber: string; 
dbPhone FaxNumber; string; 
dbEmail: string; 

TC; TDataSet; 

begin {TFormCreate} 

with CGDEnvDatal do begin 

{Standard Header} 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{ Get the query string from the address} 
dANumber := CGIQueryString^; 

{ Get the record information } 
with Authors do begin 

( Move to proper record) 

open; 

first; 

while fieldbyName(’ANumber').asstring o dANumber do 
next; 

{ Retrieve record } 

dbFName ;= fieldByName(TName').AsString; 
dbLName := fieldByNameCLName').AsString; 
dblnitial := fieldByName('Initiar).AsString; 
dbHonorific ;= fieldByName('Honorific').AsString; 
dblnstitution := fieldByName('Institution').AsString; 
dbDepartment := fieldByNameCDepartment').AsString; 
dbMailstop := fieldByName('Mailstop').AsString; 
dbAddress_Street ;= fieldByName('Address_Street').AsString; 
dbAddress_City ;= fieldByName('Address_City').AsString; 
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dbAddress_State := fieldByName('Address_State').AsString; 
dbAddress_Zip ;= fieldByName('Address_Zip').AsString; 
dbCountry := fieldByName('Coimtry').AsString; 

dbPhone_LocalNumber := fieldByName(Thone_LocalNumber').AsString; 
dbPhone FaxNumber ;= fieldByName('Phone_FaxNumber').AsString; 
dbEmail ;= fieldByName('Emair).AsString; 

Close; 

end; {With Authors) 



(Create new page) 
send (’<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxHl>Edit Author Information</Hlx/center>'); 
send C<P>We have located your record in the database. Please ensure that'); 
send (' your record is up-to-date by reviewing the information below and'); 
send (' making any changes that are necessary. <BRxHR>'); 

send('<PxFORM ACTION="editl32.exe" METHOD="POST">'); 
send('<INPUT NAME="ANumber" TYPE="hidden" Value='"+ dANumber +'">'); 

send('<B>First Name: </BxlNPUT NAME="FName" Size="25" TYPE="text" 

VALUE='"+ dbFName +'">'); 

send('<B> Last Name: </BxINPUT NAME="LName" Size="25" TYPE="text" 

Value="’ + dbLName +'">'); 

send('<B> Middle Initial: </BxINPUT NAME=" Initial" Size="2" TYPE="text" Value='" 
+ dblnitial +'"xHR>'); 

send('<B>Honorific Title:</B><INPUT NAME="Honorific" Size="5" TYPE="text" 
Value— " + dbHonorific +'">'); 

send('<PxB>Institution: </BxINPUT NAME="Institution" Size="60" TYPE="text'"); 

sendC Value='" + dblnstitution +'">'); 

send('<brxB>Department: </BxlNPUT NAME="Department" Size="60" 

TYPE="text" Value="’ + dbDepartment +'">'); 

send('<brxB>Mail Stop: </BxINPUT NAME="Mailstop" Size="30" TYPE="text" 

Value='" + dbMailstop +'">'); 

send('<PxB>Street address: </BxINPUT NAME="Address_Street" Size="40" 
TYPE="text"’); 

send('Value='" + dbAddress_Street +'">’); 

send('<brxB>City: </BxlNPUT NAME="Address_City" Size="20" TYPE="text" 

Value-" + dbAddress_City +'">'); 

send('<B>State: </BxINPUT NAME=" Address_State" Size=" 1 8" TYPE="text" 

Value- " + dbAddress_State +'">'); 

send('<brxB>Zip Code: </BxINPUT NAME=" Address_Zip" Size=" 1 0" 
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TYPE="text" Value="' + dbAddress_Zip 

send('<B>Country; </BxINPUT NAME="Countiy" Size="25" TYPE="text" 
Value="' + dbCountiy +'"> '); 

send(’<PxB>Telephone nmnber (with Area/Country codes); </BxINPUT 
NAME="Phone_LocalNumber" Size="21 

sendC TYPE="text"Value="’ + dbPhone_LocalNumber 
send('<brxB>Fax number (with Area/Countiy codes): </B><INPUT 

NAME="Phone_Faxnumber" Size="2 1 '"); 

send(' TYPE="text"Value- " + dbPhone_FaxNumber +'">'); 
send('<brxB>E-mail: </BxINPUT NAME="Email" Size="50" TYPE="text" 

Value="' + dbEmail +'">'); 

send('<PxCENTERxINPUT TYPE="submit" Value=" Submit Information"> <INPUT 
TYPE="reset'"); 

send('VALUE="Reset to Original Information"></CENTER>’); 

send('<P><hrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

sendCRetum to the <A HREF="http://131.120.20.70/Index.ht[nl">AsiIomar'); 

send('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {with cgiEnvDatal do} 
end; {Procedure TForml.FormCreate} 
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Article submission page: D_submit.exe 



unit Dsubmit; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

CGEEnvDatal : TCGEEnvData; 

CGIDB 1: TCGEDB; 

Query 1: TQuery; 

Keywords: TTable; 

QuerylName: TStringField; 

KeywordsNumber: TIntegerField; 

KeywordsName: TStringField; 

Query 1 Number: TIntegerField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dbANumber: string; 
dbOption: string; 
i: integer; 

implementation 

{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 

with CGIEnvDatal do begin 
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webSiteINff ilename;=paramstr( 1 ); 
application. onException :=cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

dbANumber:= getsmallfield('ANumber'); 
send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 
send C<centerxH2>Asilomar Conference on<BR>'); 
send ('Signals, Systems, & Computers</centerx/H2>'); 
send('<PxHR>'); 

send('<Hl>New Article Submission<yHl>'); 

send('<P> Please provide the following information about the article.'); 

send(’<PxFORM METHOD="POST" ACTION="../cgi-win/d_paper.exe ">'); 
send('<INPUT TYPE="hidden" Name="ANumber" Value='"+ dbANumber +'">'); 
send('<B>Title; </BxINPUT NAME="title" Size="80" TYPE="text">'); 

(Display Keywords on pull-down menu by taking values from the KEYWORD Table} 

(Pull Keywords from KEYWORD Table } 
with Query 1 do begin 
close; 
sql. clear; 

sql.add('Select * FROM Keyword '); 
open; 

(Move records from query result to Keyword #1 Pull-down menu} 

Keywords, open; 

Keywords, first; 

send('<PxB>Keyword #1; </BxSELECT NAME="Keywordl">'); 

while not Keywords.EOF do begin 
dbOption:= Keywords. fieldByNameCName').Asstring; 
send('<OPTION> ' +dbOption+ "); 

Keywords.next; 

end; (for all records in the query result} 
send('</SELECT>'); 

(Move records from query result to Keyword #2 Pull-down menu} 
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Keywords, first; 

send('<PxB>Keyword #2: </BxSELECT NAME="Keyword2">’); 
send(’<OPTION> None’); 

while not Keywords.EOF do begin 
dbOption;= Keywords. fieldByNameCName').Asstring; 
send('<OPTION> ' +dbOption+ "); 

Keywords, next; 

end; {for all records in the query result) 
send('</SELECT>'); 

(Move records from query result to Keyword #3 Pulldown menu) 

Keywords, first; 

send('<PxB>Keyword #3: </BxSELECT NAME="Keyword3">’); 
send('<OPTION> None'); 

while not Keywords.EOF do begin 
dbOption:= Keywords.fieldByName('Name').Asstring; 
send('<OPTION> ' +dbOption+ "); 

Keywords, next; 

end; (for all records in the query result) 
send(’</SELECT>'); 
end; {with Query 1) 

{Also end displaying Keyword pull-down menus) 



send('<PxB> Abstract: <p></BxTEXTAREA NAME="abstract" COLS=70 Rows=10>'); 

sendCPlease enter your abstract here by either'); 
send('typing or copying over this text.</TEXTAREA>'); 

send C<Pxhl>Other Author Information</hl>If there are multiple authors for this article, '); 
send ('please enter the following information. '); 

send ('In the boxes marked "Name Position" please enter the position in which you wish '); 
send ('each author"s name to appear when the abstract is printed.'); 
send C<brxB>Position of the Contact Author"s Name:</B>'); 

send C<Select NAME="contactOrder" xoption> l<option> 2<option> 3<option> 4<option> 
5<option> 6</select>'); 
sendhr; 

send C<centerxh2>Other Authors</h2></centerxhr>'); 

send C<B>Name Position: </BxSelect NAME="order2" ><option> l<option selected> 2'); 

send C<option> 3<option> 4<option> 5<option> 6</select>'); 

send (’<B>First Name: </BxINPUT NAME="fhame2" Size="25 " TYPE="text">’); 

send (’<B>Middle Initial: </B><INPUT NAME="initial2" Size="l" TYPE="text">'); 

send (’<BRxB>Last Name: </B><INPUT NAME="lname2" Size="25" TYPE="text">’); 
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send (’<brxB>Institution: </BxENPUT NAME="institution2" Size="60" TYPE="text">’); 



sendhr; 

send ('<B>Name Position; </BxSeIect NAME="order3" xoption> l<option> 2'); 
send C<option selected> 3<option> 4<option> 5<option> 6</select>'); 
send C<B>First Name: </BxINPUT NAME="fhame3" Size="25" TYPE="text">’); 

send (’<B>MiddIe Initial: </BxINPUT NAME=" initial ” Size="l" TYPE="text">'); 
send C<BRxB>Last Name; </BxINPUT NAME="lname3" Size="25" TYPE="text">'); 
send (’<BRxB>Institution; </BxINPUT NAME="institution3" Size="60" 
TYPE="text">’); 

sendhr; 

send C<B>Name Position: </BxSelect NAME="order4" xoption> l<option> 2<option>'); 
send (' 3<option selected> 4<option> 5<option> 6</select>'); 
send C<B>First Name: </BxlNPUT NAME="fname4" Size="25" TYPE="text">'); 

send ('<B>MiddIe Initial; </BxINPUT NAME="initial4" Size=’T’ TYPE="text">’); 
send C<BRxB>Last Name: </BxINPUT NAME=’’lname4" Size="25" TYPE="text">’); 

send C<BRxB>Institution; </BxINPUT NAME="institution4" Size="60" 
TYPE="text">’); 



sendhr; 

send C<B>Name Position: </BxSelect NAME="order5" xoption> l<option> 2’); 
send C<option> 3<option> 4<option selected> 5<option> 6</select>'); 
send C<B>First Name: </BxINPUT NAME="fname5" Size="25" TYPE="text">'); 

send C<B>Middle Initial: </BxINPUT NAME="initial5” Size=’T’ TYPE="text">'); 
send C<BRxB>Last Name: </BxINPUT NAME="lname5" Size="25" TYPE="text">’); 
send C<BRxB>Institution: </BxINPUT NAME="institution5" Size="60" 

TYPE="text">’); 



sendhr; 

send (’<B>Name Position; </BxSelect NAME="order6" xoption> l<option> 2'); 
send C<option> 3<option> 4<option> 5<option selected> 6</select>'); 
send C<B>First Name: </BxINPUT NAME=’'fname6" Size="25" TYPE=’’text">’); 

send (’<B>Middle Initial: </BxINPUT NAME="initial6’’ Size=’T’ TYPE="text’’>’); 
send C<BRxB>Last Name: </BxINPUT NAME="lname6" Size="25’’ TYPE="text">’); 
send (’<BRxB>Institution: </BxINPUT NAJVIE="institution6" Size="60" 
TYPE="text">'); 

sendC<PxCENTERxINPUT TYPE="submit" Value="Submit Paper Information"> '); 
send(’<INPUT TYPE="reset" VALUE="Clear this form"x/CENTER>’); 

send('<PxhrxpxIMG SRC=”../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

send('Retum to the <A HREF=”../index.html">Asilomar'); 
send('Conference Home Page</A>'); 
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send C</BODYx/HTML>’); 



send(’</BODYx/HTML>’); 

closeStdout; 

closeApp( application ); { don't leave form around } 
end; { with CGIEnvData 1 } 

end; {FormCreate} 

end. 
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Article information confirmation page; Dpaper.exe 
unit Dpaper; 

{ WHEN CALLED: This program is activated upon the Submit Paper Information.) 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIDB 1: TCGIDB; 

CGIEnvDatal ; TCGIEnvData; 

DataSourcel: TDataSource; 

Authors: TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

theabstract ; TStringList; 
i; integer; 

dANumber; string; 
dANumberint: integer; 

dFName: string; 
dLName: string; 
dinitial: string; 
dHonorific: string; 



dtitle: string; 
dkeywordl; string; 
dkeyword2; string; 
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dkeywordS: string; 
dabstract: string; 
dcontactOrder; string; 

dfhame2, dfhame2in; string; 
dlname2, dlname2in: string; 
dinitial2; string; 
dinstitution2: string; 
dorder2: string; 

dfriameS, dfhameSin; string; 
dlnameS, dlnameSin; string; 
dinitialS; string; 
dinstitutionS; string; 
dorderS; string; 

dfhame4, dfname4in; string; 
dlname4, dlname4in: string; 
dinitiaM: string; 
dinstitution4: string; 
dorder4: string; 

dfhameS, dfnameSin: string; 
dlnameS, dlnameSin; string; 
dinitialS: string; 
dinstitutionS; string; 
dorderS: string; 

dfiiameb, dfoamebin: string; 
dlnameb, dlnamebin: string; 
dinitial6: string; 
dinstitutionb: string; 
dorderb; string; 

dbFName : string; 
dbLName ; string; 
dblnitial : string; 
dbHonorific ; string; 

function MixCaseStr(S; string): string; 



implementation 
{$R *.DFM) 
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function MixCaseStr(S: string); string; 

{ This function converts a string to Mixed case. 

That is Capital first letter and the rest lower case. } 
var 

i; integer; 
begin 

if (S[l] >= V) and (S[l] <= 'z') then 

Dec(S[l], 32); 

for i ;= 2 to Length(S) do 

if (S[i] >= W) and (S[i] <= 'Z') and (S[i-l]o’ ’) and (S[i -1 ]<>'-•) and (S[i-l]o’c’) then 
Inc(S[i],32); 

MixCaseStr := S; 

end; 

procedure TForml.FonnCreate( Sender: TObject); 
begin 

with CGEEnvDatal do 
begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

( Get the fields from the FORM } 

dANumber;= getsmallfield ('ANumber'); 
dANumberint.- strtoint (dANumber); 
dtitle;= getsmallfield ('title'); 
dkeywordl := getsmallfield ('keyword 1'); 
dkeyword2:= getsmallfield ('keyword2'); 
dkeyword3:= getsmallfield Ckeyword3'); 

theabstract ;= TStringList. create; 

CGIEnvDatal.getTextATea( 'abstract', theabstract ); 

dcontactOrder;= getsmallfield ('contactOrder'); 
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{get data on second author position} 
dfhame2in:= getsmallfield ('ftiamel'); 
dlname2in;= getsmallfield ('lname2'); 

if (dfname2in = ") and (dlname2in = ") then dorder2~ " (Remove the number if there is no 

name) 

else begin 

{get the rest of the info} 
dorder2;= getsmallfield ('order2’); 
dinitial2;= getsmallfield ('initial2'); 
dinstitution2:= getsmallfield (’institution2’); 

{Format the Names} 
dfhame2;= MixCaseStr (dfhame2in); 
dlname2:= MixCaseStr (dlname2in) 
end; {if} 



{get data on third author position} 
dfname3in:= getsmallfield ('fnameS'); 
dlname3in;= getsmallfield ('lname3'); 

if (dfhame3in = ") and (dlname3in = ") then dorder3:= " {Remove the number if there is no 

name} 

else begin 

{get the rest of the info} 
dorder3:= getsmallfield ('order3'); 
dinitial3:= getsmallfield ('initiaB'); 
dinstitution3:= getsmallfield ('institution3'); 

{Format the Names} 
dfhame3:= MixCaseStr (dfhame3in); 
dlname3:= MixCaseStr (dlname3in) 
end; {if} 



{get data on fourth author position} 
dfname4in:= getsmallfield ('fname4'); 
dlname4in:= getsmallfield ('lname4'); 



if (dfhame4in = ") and (dlname4in = ") then dorder4;= " {Remove the number if there is 

no name} 

else begin 
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{get the rest of the info} 
dorder4:= getsmall field ('order4'); 
dinitial4:= getsmallfield ('initial4'); 
dinstitution4:= getsmallfield ('institution4'); 

(Format the Names) 
dfhame4:= MixCaseStr (dfiiame4in); 
dlname4:= MixCaseStr (dlname4in) 
end; (if) 



(get data on fifth author position) 

dfname5in:= getsmallfield ('fnameS'); 
dlname5in:= getsmallfield ('InameS'); 

if (dfiiameSin = ") and (dlnameSin = ") then dorder5;= " (Remove the number if there is no 
name) 

else begin 

(get the rest of the info) 
dorder5:= getsmallfield ('orderS'); 
dinitial5;= getsmallfield (’initials'); 
dinstitutionS:= getsmallfield (’institutions’); 

(Format the Names) 
dfhameS;= MixCaseStr (dfnameSin); 
dlnameS:= MixCaseStr (dlnameSin) 
end; (if) 



(get data on sixth author position) 
dfhame6in;= getsmallfield (’fiiameb’); 
dlname6in:= getsmallfield (’Inameb’); 

if (dfnamebin = ") and (dlnamebin = ") then dorder6:= " (Remove the number if there is no 

name) 

else begin 

(get the rest of the info) 
dorder6:= getsmallfield (’orderb’); 
dinitial6;= getsmallfield (’initialb’); 
dinstitutionb;= getsmallfield (’institutionb’); 



(Format the Names) 
dfnameb.- MixCaseStr (dfhamebin); 
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dlname6;= MixCaseStr (dlname6in) 
end; (if) 

{if there are no other authors, then do not place a number in contactAuthorNumber) 
if (dorder2 = ") and (dorderS = ") and (dorder4 = ")and (dorderS = ")and (dorderb = ") then 
dcontactOrder:= 



{ Get Author Name information for next HTML page } 
with Authors do begin 

( Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring <> dANumber do 
next; 

( Retrieve Name information } 

edit; 

dbFName ;= fieldByName('FName').AsString; 
dbLName ;= fieldByNameCLName').AsString; 
dblnitial := fieldByName('Initiar).AsString; 
dbHonorific := fieldByNameCHonorific').AsString; 
close; 

end; (With Authors} 



( Send the Confirm html page } 

send C<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 
send C<centerxH2>Asilomar Conference on<BR>'); 
send ('Signals, Systems, & Computers</H2>'); 
send('<PxHR>'); 



send C<P>Thank you for your input ' + dbHonorific + ' '+ dbFName +' '+ dbLName +'. '); 
send (Please confirm that the following information is correct before it is added to our 
records.'); 

send C<strong>This information can not be changed after it is submitted this 
time!</strongx/center>'); 

send('<P><FORM METHOD="POST" ACTION="../cgi-win/d2paper.exe ">'); 
send('<INPUT TYPE="hidden" Name="ANumber" Value='"+ dANumber +'">'); 
send C<B>Title; </BxINPUT NAME="title" Size="80" TYPE="text" Value='"+ dtitle 
+■">’); 
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send C<PxB>Keyword #1: </BxINPUT NAME="keywordl" SIZE="50" TYPE="TEXT" 
VALUE='"+ dkeywordl 

send C<PxB>Keyword #2: </B><INPUT NAME="keyword2" SIZE="50" TYPE="TEXT" 
VALUE=’"+ dkeyword2 

send ('<PxB>Keyword #3: </B><INPUT NAME="keyword3" SIZE="50" TYPE="TEXT" 
VALUE="'+ dkeywordS 

send C<PxB> Abstract: </BxpxTEXTAREA NAME="abstract" COLS=70 Rows=10>'); 

for i := 0 to theabstract. count - 1 do 
send( theabstract. strings[i] ); 

send('</TEXTAREA>'); 

send C<Pxhl>Other Author Information</hl>If there are multiple authors for this article, '); 

send ('please enter the following information. It is assumed that you are the "Contact 
Autohor" for'); 

send ('this paper. In the boxes marked "Name Position" please enter the position in which 
you wish '); 

send ('each authors name to appear when the abstracts are printed.’); 

send C<brxB>Position of YOUR Name:</B>'); 

send C<INPUT NAME="contactOrder" Size="2" TYPE="text" Value=’"+ dcontactOrder 
+->-); 

sendhr; 

send C<B>Name Position: </BxINPUT NAME="order2" Size="2" TYPE="text" Value=’"+ 
dorder2 +’">’); 

send (’<B>First Name : </BxlNPUT NAME="fhame2" Size="25" T YPE="text" Value="’+ 
dfhame2 +’">’); 

send C<B>Middle Initial: </BxlNPUT NAME="initial2" Size="l" TYPE="text" Value="’+ 
dinitiaI2 +'">'); 

send C<BRxB>Last Name: </BxINPUT NAME="lname2" Size="25" TYPE="text" 

Value='"+ dlname2 +’">’); 

send C<BRxB>Institution: <7BxINPUT NAME="institution2" SLze="60" TYPE="text" 

Value=’"+ dinstitution2 +'">'); 

sendhr; 

send C<B>Name Position: </BxINPUT NAME="order3" Size="2" TYPE="text" Value='"+ 
dorder3 +"’>'); 

send ('<B>First Name: </BxINPUT NAME="fhame3" Size="25" TYPE="text" Value=’"+ 

dfhame3 +'">'); 

send (’<B>Middle Initial: </BxINPUT NAME="initial3" Size="l" TYPE="text" Value="’+ 
dinitial3 +'">'); 

send C<BRxB>Last Name: </BxINPUT NAME="lname3" Size="25" TYPE="text" 

Value=’"+ dlname3 +’">’); 

send C<brxB>Institution: </BxINPUT NAME="institution3" Stze="60" TYPE="text" 

Value=’"+ dinstitution3 +'">’); 
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sendhr; 

send C<B>Name Position; </BxINPUT NAME="order4" Size="2" TYPE="text" Value="'+ 
dorder4 

send C<B>First Name: </B><INPUT NAME="fhame4" Size="25" TYPE="text" Value="'+ 

dfhame4 

send ('<B>Middle Initial; </BxINPUT NAME="initial4" Size='T' TYPE="text" Value=’"+ 
dinitial4 

send ('<BRxB>Last Name; </BxINPUT NAME="lname4" Size="25" TYPE="text" 
Value="'+ dlname4 

send C<BRxB>Institution; </BxINPUT NAME="institution4" Size="60" TYPE="text" 
Value="'+ dinstitution4 

sendhr; 

send C<B>Name Position: </BxINPUT NAME="order5" Size="2" TYPE="text" Value=’"+ 
dorderS 

send C<B>First Name; </BxINPUT NAME="fhame5" Size="25" TYPE="text" Value=’"+ 
dfhameS 

send (’<B>Middle Initial: <yBxINPUT NAME="initial5" Size='T' TYPE="text" Value="’+ 
dinitialS 

send (’<BRxB>Last Name; </BxINPUT NAME="lname5" Size="25" TYPE="text" 
Value="'+ dlnameS 

send C<BRxB>Institution; </BxINPUT NAME="institution5" Size="60" TYPE="text" 
Value="'+ dinstitutionS 

sendhr; 

send C<B>Name Position; </BxlNPUT NAME="order6" Size="2" TYPE="text" Value='"+ 
dorder6 

send C<B>First Name: </BxINPUT NAME="fhame6" Size="25" TYPE="text" Value="’+ 

dfhame6 

send C<B>Middle Initial; </B><INPUT NAME="initial6" Size='T’ TYPE="text" Value=’"+ 
dinitial6 

send ('<BRxB>Last Name: </BxINPUT NAME="lname6" Size="25" TYPE="text" 

Value='"+ dlname6 

send C<BRxB>Institution; </BxINPUT NAME="institution6" Size="60" TYPE="texf 
Value=’"+ dinstitution6 



sendhr; 

send C<PxCENTERxINPUT TYPE="submit" Value="Confirm Submission 
lnfonnation"xINPUT TYPE=’'reset'"); 

send (' VALUE="Clear this form"xyCENTER>'); 

send(’<Pxhrxp><IMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

send('Retum to the <A HREF="http;//131. 120.20. 70/Index.html">Asilomar'); 
send('Conference On-line Submission Page</A>'); 
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send (’</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); { don’t leave form around } 
end; {with CGEEnvDatal} 
end; {with FormCreate} 
end. {Application} 
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Confirmation page; D2paper.exe 



unit D2_paper; 

{ WHEN CALLED: This program is activated upon the Submission Information 
Confirmation.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgidb, Cgi, DB, DBTables, Starsock, Inetmail; 



type 

TForml = class(TForm) 

Articles; TTable; 

DataSourcel; TDataSource; 

CGDEnvDatal; TCGDEnvData; 

CGK)B1; TCGIDB; 

Authors; TTable; 

procedure FormCreate(Sender; TObject); 

{ procedure SendMail(DataSet; TDataset); } 

{ procedure onmailinfo( Sender; TObject; info; Mailinfo; addinfo; String); } 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 



var 

Form 1; TForml; 
theabstract ; TStringList; 
dANumber; string; 
dANumberint; integer; 

dtitle; string; 
dkeywordl; string; 
dkeyword2; string; 
dkeywordS; string; 
dabstract; string; 
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dcontactOrder: string; 

dfhame2in: string; 
dlname2in: string; 
dfhame2; string; 
diname2: string; 
dinitial2; string; 
dinstitution2; string; 
dorder2: string; 

dfhameSin: string; 
dlnameSin: string; 
dfhameS; string; 
dlnameS: string; 
dinitialS; string; 
dinstitutionS: string; 
dorderS; string; 

dfname4in; string; 
dlname4in: string; 
dfhame4; string; 
dlname4; string; 
dinitial4: string; 
dinstitution4: string; 
dorder4: string; 

dfnameSin; string; 
dlname5in: string; 
dfnameS: string; 
dlnameS; string; 
dinitialS: string; 
dinstitutionS; string; 
dorderS; string; 

dfname6in; string; 
dlname6in; string; 
dfhame6; string; 
dlname6: string; 
dinitial6; string; 
dinstitution6; string; 
dorder6; string; 

dPaper_Number; string; 

dbFName ; string; 
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dbLName ; string; 
dbHonorific : string; 
dbEmail ; string; 

addinfo: string; 

function MixCaseStr(S; string): string; 



implementation 
{$R *.DFM} 

function MixCaseStr(S: string): string; 

( This function converts a string to Mixed case. 

That is Capital first letter and the rest lower case. } 
var 

i: integer; 
begin 

if (S[l] >= 'a') and (S[l] <= V) then 

Dec(S[l], 32); 

for i := 2 to Length(S) do 

if (S[i] >= 'A') and (S[i] <= 'Z') and (S[i-l]o' ') and (S[i-l]o’-') and (S[i-l]o'c') then 
Inc(S[i],32); 

MixCaseStr := S; 

end; 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

(Initialize HTML page } 

webSiteINIFilename:=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
appl ication . processMessages; 



createStdout; 

sendPrologue; 
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{ Get data } 

dANumber:= getsmallfield ('ANumber'); 
dANiimberint;= strtoint (dANiimber); 
dtitle:= getsmallfield ('title'); 
dkeywordl ;= getsmallfield ('keyword 1'); 
dkeyword2:= getsmallfield ('keyword2'); 
dkeywordS.- getsmallfield ('keywords'); 

theabstract ;= TStringList. create; 

CGIEnvDatal.getTextArea( 'abstract', theabstract); 

dcontactOrder;= getsmallfield ('contactOrder'); 

(get data on second author position} 
dfirame2in:= getsmallfield ('fiiameS'); 
dlname2in:= getsmallfield ('lname2'); 

if (dfiiame2in = ") and (dlname2in = ") then dorder2;= " {Remove the number if there is no 
name) 

else begin 

(get the rest of the info) 
dorder2;= getsmallfield ('order2'); 
dinitial2;= getsmallfield ('initial2'); 
dinstitution2;= getsmallfield ('institution2'); 

(Format the Names} 
dfname2:= MixCaseStr (dfname2in); 
dlname2:= MixCaseStr (dlname2in) 
end; {if} 



{get data on third author position} 
dfhame3in:= getsmallfield ('fhameS'); 
dlnameSin:= getsmallfield ('InameS'); 

if (dfhameSin = ") and (dlnameSin = ") then dorderS;= " {Remove the number if there is no 
name} 

else begin 

{get the rest of the info} 
dorderS:= getsmallfield ('orderS'); 
dinitial3;= getsmallfield ('initials'); 
dinstitution3;= getsmallfield ('institutions'); 
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(Format the Names) 
dfname3:= MixCaseStr (dfhameSin); 
dlname3;= MixCaseStr (dlname3in) 
end; (if) 



(get data on fourth author position) 

dfhame4in:= getsmallfield ('fname4'); 
dlname4in;= getsmallfield ('lname4'); 

if (dfname4in = ") and (dlname4in = ") then dorder4;= " (Remove the number if there is 
no name) 

else begin 



(get the rest of the info) 
dorder4:= getsmallfield ('order4'); 
dinitial4:= getsmallfield ('initial4'); 
dinstitution4:= getsmallfield ('institution4'); 



(Format the Names) 
dfhame4:= MixCaseStr (dfhame4in); 
dlname4:= MixCaseStr (dlname4in) 
end; (if) 



(get data on fifth author position) 

dfname5in:= getsmallfield ('fhameS'); 
dlname5in:= getsmallfield ('InameS'); 

if (dfiiameSin = ") and (dlnameSin = ") then dorder5:= " (Remove the number if there is no 
name) 

else begin 

(get the rest of the info) 

dorder5:= getsmallfield ('orderS'); 
dinitial5;= getsmallfield ('initials'); 
dinstitutionS:= getsmallfield ('institutions'); 

(Format the Names) 
dfnameS;= MixCaseStr (dfnameSin); 
dlnameS;= MixCaseStr (dlnameSin) 
end; (if) 



(get data on sixth author position) 
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dfhame6in:= getsmallfield ('fiiame6'); 
dlname6in:= getsmallfield ('lname6'); 

if (dfhame6in = ") and (dlname6in = ") then dorder6;= " {Remove the number if there is no 

name} 

else begin 

{get the rest of the info} 
dorder6:= getsmallfield ('orderb'); 
dinitial6;= getsmallfield ('initialb'); 
dinstitution6;= getsmallfield ('institutionb'); 

{Format the Names} 
dfhame6:= MixCaseStr (dfiiamebin); 
dlname6;= MixCaseStr (dlnamebin) 
end; {if} 

{if there are no other authors, then do not place a number in contactAuthorNumber} 
if (dorder2 = ") and (dorderS = ") and (dorder4 = ")and (dorderS = ")and (dorderb = ") then 
dcontactOrder;= 

{ Place Data into SUBMISSION Table} 
with Articles do 
begin 

{Append new submission data to SUBMISSION Table} 
open; 

AppendRecord([nil, dtitle, nil, nil, dANumberint, nil, nil, nil, dkeywordl, dkeyword2, 
dkeywordS, 

nil, dcontactOrder, dFName2, dLName2, dlnitial2, dInstitution2, dOrder2, dFNameS, 

dLNameS, 

dlnitialS, dInstitutionS, dOrderS, dFName4, dLName4, dlnitial4, dInstitution4, 

dOrder4, 

dFNameb, dLNameb, dlnitial5, dInstitutionS, dOrderS, dFNameb, dLNameb, 
dinitialb, dinstitutionb, 
dOrderb]); 

edit; 

CGIDB 1 .StringlistToMemo(theabstract, fieldbyname('Abstract')); 
theabstract.free; 

{Get the Paper_Number for presentation as the Registration #.} 
last; 

dPaper_Number:=fieldbyname('Paper_Number').asstring; 

close; 
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end; {with Articles} 



{ Get Name Information for next html page } 
with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dANumber do 
next; 

(Get Name Data} 
edit; 

dbFName := fieldByNameCFName').AsString; 
dbLName := fieldByNameCLName').AsString; 
dbHonorific := fieldByNameCHonorific'). AsString; 
dbEmail ;= fieldByName('Emair). AsString; 
close; 

end; (With Authors} 



{ SendMaill.TO_Address:= dbEmail; 

SendMaill.TO_Name:= dbHonorific + " + dbFName + " + dbLName; 
SendMaill .action:=Send_Mail;} 



{ Send the Final page } 

send ('<HTML><HEAD>'); 

SendTitle(Asilomar Signals, Systems, and Computers'); 
send C</HEAD><BODY bgcolor=FFFFFF>'); 
send C<centerxH2>Asilomar Conference on<BR>'); 
send ('Signals, Systems, & Computers</centerx/H2>'); 
sendhr; 

sendhdr (T, 'Confirm New Article Submission'); 
send C<P>Thank you '); 

send (dbHonorific + " + dbFName + " + dbLName + '); 

send C<P> Your article information has been added to the conference'); 

send ('records. <b>Your Registration Number is; '+dPaper_Number+'<brx/b>'); 

send C<i>Be sure that you write this number down</i> or print out a copy of this page. '); 
send ('You will need this number when you send in your extended summary. '); 
sendhdr ('3','The filename for your extended summary will be the registration number!'); 
send (For example, if your Registration Number is 15, the file which contains your summary 
should be named '); 
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send (’<B>15.ps</B> if it"s a postscript file, or <B>15.txt</B> if if’s an ASCII file.'); 

send C<P>You must now FTP your extended summary. You may use your own'); 
send (TTP software or the program you down-loaded from the <A'); 
send CHREF="http://131. 120.20.70/prototype/procl22.htm">Procedures Page.</A>'); 
send ('Be sure you include the Title of the Article and the Author names'); 
send (' in the text of the summary.'); 

send C<P>Log on to our FTP Server using the following information:<BR>'); 
send ('server address: <b>131. 120.20.70</bxbr> '); 
send ('userED: <b>guest</bxbr> '); 
send ('password: <b>asilconf</bxbr>'); 

send C<P>Thank you for using our online submission process. We hope'); 
send ('that you found it helpful. Please send any comments to'); 
send ('mikec@nps. navy.mil'); 

send('<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

send('Retum to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 
send('Conference On-line Submission Page</A>'); 
send C</BODYx/HTML>'); 

CGEEnvData 1 . close Stdout ; 
closeApp( application ); 

end; (with CGDEnvDatal} 

end; (FormCreate) 

{procedure TForml.SendMail(DataSet: TDataset); 
var 

dbFName : string; 
dbLName : string; 
dbHonorific : string; 
dbEmail : string; 

begin 



with Authors do begin 

open; 

first; 

edit; 
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moveby(dANumberint- 1 ); 

dbFName := fieldByNameCFName’).AsString; 

dbLName := fieldByName('LName').AsString; 

dbHonorific ;= fieldByNameCHonorific').AsString; 

dbEmail ;= fieldByName('Emair).AsString; 

close; 

end; {with Authors } 



{ SendMail 1 .TO_Address:= dbEmail; 

SendMaill.TO_Name:= dbHonorific + " + dbFName + " + dbLName; 

SendMail l.action:= SendMail; 

end; {Sendmail} 



(procedure TForml.onmailinfo(Sender: TObject; info; Mailinfo; 
addinfo: String); 
begin 

CGIEnvDatal.send ('<P>'); 

CGIEnvDatal .sendhdr (T, Mail Status'); 

case info of 

Available : 
begin 

if SendMaill. status = Available then 
CGIEnvDatal.send ('Message was sent.') 

else 

begin 

CGIEnvDatal.send( 'mailform.exe : something went wrong<br>' ); 
CGLEnvDatal.send('Sendmail status is; '); 
case SendMaill. status of 

ServerConnected; CGEEnvDatal.send( 'ServerConnected; ' ); 
InvalidServer; CGIEnvDatal.send( 'InvalidServer; ' ); 

NoWinsock; CGIEnvDatal.send( "NoWinsock; ' ); 

NoMailServer; CGIEnvDatal.send( 'NoMailServer; ' ); 
MailDestinationError; CGIEnvDatal.send( 'MailDestinationError; ' ); 
MailOriginError; CGEEnvDatal.send( 'MailOriginError; ' ); 
ProtocolError; CGEEnvDatal.send( Protocol Error; ' ); 

SocketError; CGIEnvDatal.send( 'SocketError; ' ); 
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ReadError: CGIEnvDatal.send( 'ReadError: ' ); 

WriteError; CGIEnvDatal.send( 'WriteError: ' ); 

AlreadyBusy; CGIEnvDatal.send( 'AlreadyBusy; ' ); 

Busy; CGIEnvDatal.send( 'Busy; ' ); 

PrematureDisconnect; CGIEnvDatal.send( 'PrematureDisconnect; ' ); 
end; 

CGIEnvDatal.send('info is; '); 
case info of 

ServerConnected; CGIEnvDatal.send( 'ServerConnected; ' ); 
ServerDisconnected; CGIEnvDatal.send( 'Server Disconnected; ' ); 
SendingMessage; CGIEnvDatal .send( 'SendingMessage; ' ); 
PrematureDisconnect; CGIEnvDatal.send( PrematureDisconnect; ' ); 
Recipient; CGIEnvDatal. send( 'Recipient; ' ); 

BadAddress; CGIEnvDatal.send( 'BadAddress; ' ); 

ProtocolError; CGIEnvDatal. send( Protocol Error; ' ); 

SocketError; CGIEnvDatal.send( 'SocketError; ' ); 

ReadError; CGIEnvDatal.send( 'ReadError; ' ); 

WriteError; CGIEnvDatal.send( 'WriteError; ' ); 
end; 



CGIEnvDatal.send( addinfo ); 
end; {else} 

{ end; {if} 

{ end; {case} 

{ CGIEnvDatal. closeStdout; 
cIoseApp( application ); 

end; } 
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APPENDIX F. ADMINISTRATION SUB SYSTEM CODE 



This appendix contains the HTML and Delphi code for the HTML documents and Delphi 
executables that comprise the Administration Sub-system. The relationships of the programs is 
depicted in Figure F-1. 
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Adminpwd.exe 













AssigJ.exe 


1 

Titnesl.exe 


Invit 


:e.exe 


Choose.exe 


1 

Times2.exe 






Assign2.exe 






1 


Invite2.exe 


Choose2.exe 


1 










Assign3.exe 


Times3.exe 




Passwds.exe 



Pwdmod.exe Pwdadd.exe 

1 

Pwdadd2.exe 



Pwddel.exe 

I 

Pwddel2.exe 




P Sess.exe 



P_Artl.exe 

P_Artli2.exe 

P_ArtfiI.exe 



P_Accept.exe 

I ^ 1 

P_accall.exe P_Accep2.exe 
P_Accep3.exe 

P Accscr.exe P Accfil.exe 



P_abscat.exe 

I 

Prabsca3.exe 



Figure F-1. Administration Sub-system. 
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UserlD and Password verification page; Admin20.htin 



<HTML> 

<HEADxTITLE>Asilomar Signals, Systems, and Computers</TITLEx/HEAD> 

<BODY bgcolor=FFFFFF> 

<centerxH2>Asilomar Conference on<BR> 

Signals, Systems, & Computers</centerx/H2> 

<Hl>System Administration</Hl> 

<P> This page is intended for the exclusive use of the System Administrator for the Asilomar 
Conference on Signals, Systems, & Computers. 

<FORM ACTION="../cgi-win/Adminpwd.exe " METHOD="POST"> 

<HRxCENTER> 

<B>User name: </BxINPUT NAME=’’userid" Size="20" TYPE="text"> 

<B>Password: </BxINPUT NAME="pwd" Size="20" TYPE="password"> 

<INPUTNAME="flag" Size="3" TYPE="hidden" Value="0"> 

<PxINPUT TYPE="submit" Value="Submit Password"> <INPUT TYPE="resef" 
VALUE="Clear Values"x/CENTER> 

<PxhrxP> 

<IMG SRC- 'asil2b0.gif" align=left alt=" Asilomar facility"> 

Return to the <A HREF="http;//l 31. 120. 20. 70/Index.html"> Asilomar 
Conference On-line Submission Page</A> 

</BODYx/HTML> 
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System Administration Main Menu; Adminpwd.exe 



unit Adm_pwd; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi, Cgidb; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

Tablel: liable; 

Queryl; TQuery; 

CGIDB 1; TCGIDB; 

CGEEnvDatal; TCGEnvData; 

TablelUserlD: TStringField; 

Table IPassword; TStringField; 

Query IPassword: TStringField; 

procedure FormCreate( Sender; TObject); 

private 

( Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
dUserlD; string; 
dpwd; string; 
dbpassword; string; 
dflag; string; 

implementation 

($R *.DFM} 

procedure TForml.FormCreate( Sender; TObject); 
begin 
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with CGIEnvDatal do begin 



webSiteINIFilenanie:=paramstr( 1 ); 
application.onException:=cgiErrorHandIer; 
application. processMessages; 

createStdout; 

sendPrologue; 

{ Get fields from search page } 
dUserID:= getsmallfield (TJserlD'); 
dpwd:= getsmallfield ('pwd'); 
dflag:= getsmallfield ('flag'); 
send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HDEADxBODY bgcolor=FFFFFF>'); 

end; 

{Retrieve Password of the given User} 
with Query 1 do begin 

close; 
sql. clear; 

sql.add(’Select*FROM Admin WHERE UserlD = + dUserlD + ""); 
open; 

Table 1. Open; 

Table 1. First; 

dbpassword ;= fieldByName(Password').Asstring; 

Table 1. Close; 
end; 



with cgiEnvDatal do begin 

{Determine whether password was correct} 

if (dbpassword = dpwd) or (dflag = T) then begin {password was correct or flag is 



send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

send('<centerxh3>Database Functions</h3>'); 
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{Review changes to Author data Button} 

send('<PxFORM ACTION="../cgi-win/auchangs.exe" METHOD="POST">'); 
send('<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send('<PxINPUT TYPE="submit" Value="Review Changes to Author 
Information"x/FORM>'); 



{Modify Authors Button} 

send('<PxFORM ACTION="../cgi-win/inputau.exe" METHOD="POST">'); 
send('<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send('<PxINPUT TYPE=" submit" Value=" Edit Author Information " 
Si2e="30"x/FORM>’); 

{Modify Articles Button} 

send(’<PxFORM ACTION="../cgi-win/ArtlEdit.exe" METHOD="POST">'); 
send('<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send('<PxlNPUT TYPE="submit" Value=" Edit Article data " 
Size="30"x/FORM>'); 

{Modify Sessions Button} 

send('<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD="POST">'); 
send(’<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send('<PxINPUT TYPE="submit" Value=" Edit Sessions " x/FORM>'); 

{Modify Keywords Button} 

send('<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD="POST">’); 
send(’<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send(’<PxINPUT TYPE="submit" Value=" Edit Keywords " x/FORM>'); 

{Invite Articles Button} 

send('<PxFORM ACTION="../cgi-win/Invite.exe" METHOD="POST">'); 
send(’<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send('<P><CENTERxINPUT TYPE="submit" Value=" Invite Articles 
"x/CENTERx/FORM>’); 

{Accept/reject Articles Button} 

send('<PxFORM ACTION="../cgi-win/Choose.exe" METHOD="POST">’); 
send('<INPUT NAME="flag" TYPE="hidden" Value='T’>'); 
send('<PxCENTERxINPUT TYPE="submit" Value=" Accept / Reject Articles 
"x/CENTERx/FORM>'); 

{Assign Articles to Sessions Button} 

send('<PxFORM ACTION="../cgi-win/Assign.exe" METHOD="POST">’); 
send('<INPUT NAME="flag" TYPE="hidden" Value="l">'); 

send(’<PxCENTER><INPUT TYPE="submit" Value=" Assign Articles to Sessions " 
x/centerx/FORM>'); 
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{Assign Presentation Times to Articles Button} 

send(’<PxFORM ACTION="../cgi-win/Times.exe" METHOD="POST">'); 
send(’<INPUT NAME="flag" TYPE="hidden" Value=’T’>'); 

send('<PxCENTERxINPUT TYPE="submit" Value=" Assign Presentation Times to 
Articles"x/CENTERx/FORM>'); 

{Modify Passwords Button} 

send(’<PxFORM ACTION="../cgi-win/Passwds.exe" METHOD="POST">'); 
send('<INPUT NAME="flag" TYPE="hidden" Value=’T">’); 
send('<P><CENTERxINPUT TYPE="submit" Value=" Modify Passwords " 

X/ centerx/FORM>’); 

{Print Session List Button} 

send('<hrxcenterxh3>Print Functions</h3x/center>'); 
send(’<PxFORM ACTION="../cgi-win/P_sess.exe" METHOD="POST">’); 
send(’<INPUT NAME="flag" TYPE="hidden" Value=’T">’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Print Session 
list"x/CENTERx/FORM>’); 

{Print Article Information Button} 

send('<PxFORM ACTION="../cgi-win/p_artl.exe" METHOD="POST">’); 
send(’<INPUTNAME="flag" TYPE="hidden" Value=’T">’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Print Article 
Information"x/CENTERx/FORM>'); 

{Print Article accept/reject Button} 

send(’<PxFORM ACTION="../cgi-win/p_accept.exe" METHOD="POST">'); 
send(’<INPUT NAME="flag" TYPE="hidden" Value=’T 

send(’<PxCENTERxINPUT TYPE="submit" Value="Print Article Accept/Reject 
notice"x/CENTERx/FORM>'); 

{Print Abstract Catalog Button} 

send(’<PxFORM ACTION=". ./cgi-win/p_abscat.exe" METHOD="POST">’); 
send(’<INPUT NAME="flag" TYPE="hidden" Value=’T 
send('<PxCENTERxINPUT TYPE="submit" Value="Print Abstract 
Catalog"x/CENTERx/FORM>'); 
end 

else begin {Password **incorrect**} 

send('<centerxH2>Asilomar Conference on Signals, Systems, & 
Computers</H2x/center>'); 
sendhr; 

send('<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
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send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to 
login again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 
end; 



send('<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar 
facility">'); 

sendCRetum to the <A HREF="http://131. 120.20. 70/Index.html">Asilomar'); 

send('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 
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Author Changes: AuChange.exe 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGEEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

TempAuthors; TTable; 

Query 1: TQuery; 

Query IFName: TStringField; 

Query ILName; TStringField; 

Query lEditnumber: TIntegerField; 

Query 1 Honorific; TStringField; 

Query 1 Institution: TStringField; 

Query 1 Department: TStringField; 

Query lANumber: TIntegerField; 

Query 1 Initi al : TStringField; 

QuerylMailstop: TStringField; 

Query lAddress Street; TStringField; 

Query lAddress_City: TStringField; 

Query lAddress Zip; TStringField; 

Query 1 Phone LocalNumber: TStringField; 

Query IPhone FaxNumber: TStringField; 

QuerylEmail; TStringField; 

Query ICoimtry: TStringField; 

Query lAddress_State: TStringField; 
procedure FormCreate( Sender; TObject); 
procedure CGIDBOnSendingHotField(currentRecord; TDataset; 
var s; OpenString); 
private 

{ Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml: TForml; 
implementation 



219 



{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
var 

count; integer; 
countstr: string; 

dflag; string; {valid program call variable} 

begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

{ HTML page header } 

send C<HTMLxFffiAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send ('</IffiADxBODY bgcolor=FFFFFF>'); 

(Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = T) then begin {flag is valid} 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Display ail enrties in TEMP AUTHOR Table, ordered by ANumber, with Editnumber 
HotLink} 

with queryl do begin 

prepare; { Optimizes query } 
close; { should already be closed } 
sql. clear; 

sql.add( 'Select * FROM TempAuth ' ); 
sql.add( 'Order by ANumber ' ); 
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open; 

count” Recordcount; 
countstT” inttostr (count); 

send C<P>There are '+ countstr +' records to review.<P>'); 

CGIDB 1 .DrawTable; 
send ('<P>'); 
end; (with queryl do} 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value='T’>’); 

send('<P><CENTER><INPUT TYPE="submit" VaIue="Retum to the System Admin 
Options page"x/CENTERxyFORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end (flag is valid} 

else begin (flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send ('<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http;//131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; (flag **incorrect**} 
end; (with cgiEnvDatal do} 
end; (FormCreate} 

(Send Editnumber as a Hot Link} 
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procedure TForml.CGIDBOnSendingHotField(currentRecord: TDataset; 
var s: OpenString); 
begin 

s:='<A HREF=". ,/cgi-winA^iewChng.exe?'+ 
currentrecord.fieldbyName('Editnumber').AsString + 

+ currentrecord.FieldbyName('Editnumber'). AsString + '</A>'; 

end; 

end. 
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unit View_chg; 
interface 



View changes: ViewChng.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

TempAuthors: TTable; 

Authors: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

dANumber: string; 
dENumber: string; 
dblFName: string; 
dblLName: string; 
dbl Initial: string; 
dbl Honorific: string; 
dbl Institution: string; 
dblDepartment: string; 
dblMailstop: string; 
dblAddress_Street: string; 
dblAddress_City: string; 
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dblAddress_State: string; 
dblAddress_Zip; string; 
dbl Country: string; 
dblPhoneJLocalNumber: string; 
dblPhone FaxNumber: string; 
dblEmail: string; 

db2FName: string; 
db2LName: string; 
db2Initial; string; 
db2Honorific: string; 
db2Institution: string; 
db2Department: string; 
db2Mailstop: string; 
db2Address_Street; string; 
db2Address_City: string; 
db2Address_State; string; 
db2Address_Zip; string; 
db2Country: string; 
db2Phone_LocalNumber: string; 
db2Phone_FaxNumber: string; 
db2Email: string; 

TC: TDataSet; 

begin {TFormC reate} 

with CGIEnvDatal do begin 

(Standard Header} 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application. processMessages; 

create Stdout; 

sendPrologue; 

send C<HTMLxHEAD>'); 

SendTitle(Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 

send(’<centerxHl>Compare Author Information</Hlx/center>'); 
send C<P>Here is the old record along with the submitted changes.'); 
sendHR; 

{ Get the query string from the address} 
dENumber ;= CGIQuery String^; 
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{ Get the record information from the TempAuthor table } 
with TempAuthors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('Editnumber').asstring o dENumber do 
next; 

{ Retrieve record } 

dANumber ;= fieldByName(’ANumber').AsString; 
db2FName := fieldByName('FName’).AsString; 
db2LName := fieldByName('LName').AsString; 
db2Initial := fieldByName(lnitiar).AsString; 
db2Honorific := fiieldByName('Honorific').AsString; 
db2Institution := fieldByName('Institution').AsString; 
db2Department := fieldByName('Department’).AsString; 
db2Mailstop ;= fieldByNameCMailstop').AsString; 
db2Address_Street := fieldByName(Address_Street').AsString; 
db2Address_City := fieldByName('Address_City').AsString; 
db2Address_State := fieldByName('Address_State’).AsString; 
db2Address_Zip ;= fieldByName(Address_Zip').AsString; 
db2Country ;= fieldByName('Country').AsString; 

db2Phone_LocalNumber ;= fieldByName('Phone_LocalNumber').AsString; 
db2Phone_FaxNumber := fieldByName('Phone_FaxNumber').AsString; 
db2Email := fieldByName('Emair).AsString; 

Close; 

end; {with TempAuthors} 

{ Get the record information from the Author table } 
with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dANumber do 
next; 

{ Retrieve record } 

dblFName := fieldByName('FName').AsString; 
dblLName := fieldByName('LName').AsString; 
dbllnitial := fieldByName('lnitiar).AsString; 
dblHonorific := fieldByNameCHonorific').AsString; 
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dbl Institution := fieldByName(’Institution').AsString; 
dbl Department := fieldByName(Department').AsString; 
dblMailstop := fieldByName('Mailstop').AsString; 
dblAddress_Street := fieldByName(Address_Street').AsString; 
dblAddress_City := fieldByName(Address_City').AsString; 
dblAddress_State ;= fieldByName(Address_State').AsString; 
dblAddress_Zip := fieldByName('Address_Zip').AsString; 
dbl Country := fieldByName(’Country').AsString; 

dblPhoneLocalNumber := fieldByName(Phone_LocalNumber').AsString; 
dblPhone_FaxNumber := fieldByName('Phone_FaxNumber').AsString; 
dblEmail := fieldByNameCEmair).AsString; 

Close; 

end; {with Authors} 



{Create new page} 

send('<PxFORM ACTION="../cgi-win/MakeChng.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send(’<INPUT TYPE="hidden" Name="ANumber” Value="’+ dANumber 
send('<INPUT TYPE="hidden" Name="ENumber" Value="’+ dENumber 
send(’<B>OLD First Name; </BxINPUT NAME="OFName" Size="25" TYPE=’’text" 
VALUE="’+ dblFName 

send(’<brxB>NEW First Name; </BxINPUT NAME="FName" Size="25" 
TYPE="text" VALUE=’"+ db2FName 

send(’<PxB>OLD Last Name; </BxINPUT NAME="OLName" Size="25" 
TYPE="text" Value="’ + dblLName 

send(’<brxB>NEW Last Name; </B><INPUT NAME="LName" Size="25" 

TYPE="text" Value="' + db2LName 

send(’<PxB>OLD Middle Initial; </BxINPUT NAME="OInitial" Size="2" 

TYPE="text" Value=’" + dbl Initial 

send(’<brxB>NEW Middle Initial; </BxINPUT NAME="Initial" Size="2" TYPE="text" 
Value='" + db2Initial 

send(’<PxB>OLD Honorific Title;</B><INPUT NAME="OHonorific" Size="5" 
TYPE="text" Value=’" + dbl Honorific 

send('<brxB>NEW Honorific Title;</BxINPUT NAME="Honorific" Size="5" 
TYPE="text" Value="’ + db2Honorific 

send('<PxB>OLD Institution; </BxINPUT NAME="OInstitution" Size="60" 
TYPE="text'"); 

sendC Value="' + dbl Institution 

send('<br><B>NEW Institution; </BxINPUT NAME="Institution" Size="60" 
TYPE="text"’); 

send(' Value="' + db2Institution 

send('<PxB>OLD Department; </BxlNPUT NAME="ODepartment" Size="60" 
TYPE="text" Value="' + db department 

send('<brxB>NEW Department; </BxINPUT NAME="Department" Size="60" 
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TYPE="text" Value=’" + db2Department 

send('<PxbrxB>OLD Mail Stop; </BxINPUT NAME="OMailstop" Size="30" 
TYPE="text" Value=’" + dblMailstop 

send('<brxB>NEW Mail Stop: </BxINPUT NAME="Mailstop" Size="30" 

TYPE="text" Value=’" + db2Mailstop 

send(’<PxB>OLD Street address: </BxINPUT NAME="OAddress_Street" Size="40" 
TYPE="text’"); 

send('Value="' + dblAddress_Street 

send('<brxB>NEW Street address: </BxINPUT NAME="Address_Street" Size="40" 
TYPE="text"’); 

send(’Value="' + db2Address_Street 

send('<PxB>OLD City; </BxINPUT NAME="OAddress_City" Size="20" 
TYPE="text" Value="’ + dblAddress_City 

send('<brxB>NEW City: </BxINPUT NAME="Address_City" Size="20" 

TYPE="text" Value='" + db2Address_City 

send('<PxB>OLD State: </BxINPUT NAME="OAddress_State" Size="2" 

TYPE="text" Value="' + dblAddress_State 

send('<brxB>NEW State; </BxINPUT NAME="Address_State" Size="2" 
TYPE="text" Value='" + db2Address_State 

send('<PxB>OLD Zip Code; </BxINPUT NAME="OAddress_Zip" Size=" 1 0" 
TYPE="text" Value="' + dblAddress_Zip 

send('<brxB>NEW Zip Code; </BxINPUT NAME="Address_Zip" Size="10" 
TYPE="text" Value="' + db2Address_Zip 

send('<PxB>OLD Country; </BxINPUT NAME="OCountry" Size="25" TYPE="text" 
Value="' + dbl Country +’"> '); 

send('<brxB>NEW Countiy: </BxINPUT NAME="Country" Size="25" TYPE="text" 
Value="' + db2Country +'"> '); 

send('<PxB>OLD Telephone number (with Area/Country codes): </BxINPUT 

NAME="OPhone_LocalNumber" Size="2 1 

sendC TYPE="text"Value="' + dblPhone_LocalNumber 

send('<brxB>NEW Telephone number (with Area/Country codes): </BxINPUT 

NAME="Phone_LocalNumber" Size="2 1 '"); 

sendC TYPE="text"Value=’" + db2Phone_LocalNumber +’">'); 
send('<PxB>OLD Fax number (with Area/Country codes); </BxINPUT 
NAME="OPhone_Faxnumber" Size="21 "'); 

sendC TYPE="text"Value=’" + dblPhone_FaxNumber +'">’); 
send('<brxB>NEW Fax number (with Area/Country codes): </BxINPUT 

NAME="Phone_Faxnumber" Size="21 "’); 

sendC TYPE="text"Value=’" + db2Phone_FaxNumber +'">’); 

send('<PxB>OLD E-mail; </BxlNPUT NAME="OEmail" Size="50" TYPE="text" 
Value=’" + dblEmail +’">’); 

send('<brxB>NEW E-mail; </BxINPUT NAME="Emair’ Size="50" TYPE="text" 
Value=’" + db2Email +’”>’); 

send('<PxCENTERxINPUT TYPE="submit" Value=" Accept 
Changes"x/CENTERx/FORM>’); 
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send('<PxFORM ACTION="../cgi-win/Nochange.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value='T’>’); 
send('<INPUT TYPE="hidden" Name="ENumber" Value="'+ dENumber +"’>■); 
send('<PxCENTER><INPUT TYPE="submit" VaIue="Do NOT Modify this Record. 
Discard Changes. "></CENTER></FORM>’); 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD=’’POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"></CENTERx/FORM>'); 
send ('</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {Procedure TForml.FormCreate} 

end. 
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Make the Change: MakeChng.exe 



unit Make_chg; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

Authors; TTable; 

CGEEnvDatal: TCGEEnvData; 

CGIDB 1; TCGIDB; 

TempAuthors: TTable; 
procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
dANumber; string; 
dENumber; string; 
dANumberint: integer; 
dFName: string; 
dLName: string; 
dinitial: string; 
dHonorific: string; 
dinstitution; string; 
dDepartment: string; 
dMailstop: string; 
dAddress_Street: string; 
dAddress_City: string; 
dAddress State: string; 
dAddress_Zip: string; 
dCountry; string; 
dPhone_AreaCode: string; 
dPhone LocalNumber; string; 
dPhone_FaxNumber: string; 
dEmail: string; 
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dflag; string; {valid program call} 

implementation 
($R *.DFM} 

procedure TForml.FormCreate( Sender; TObject); 
begin 

with CGIEnvDatal do 
begin 

{Standard Header} 

webSiteINIFilename:=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{Standard Header} 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>’); 



{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = '1') then begin {flag is valid} 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Retrieve data from Form} 

dANumber;= getsmallfield ('ANumber'); 
dENumber:= getsmallfield ('ENumber'); 
dFName:= getsmallfield CFName'); 
dLName:= getsmallfield ('LName'); 
dlnitial;= getsmallfield ('Initial'); 
dHonorific;= getsmallfield CHonorific'); 
dInstitution:= getsmallfield ('Institution'); 
dDepartment:= getsmallfield CDepartment'); 
dMailstop:= getsmallfield ('Mailstop'); 
dAddress_Street:= getsmallfield ('Address_Streef ); 
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dAddress_City;= getsmallfield ('Address_City'); 
dAddress_State:= getsmallfield ('Address_State'); 
dAddress_Zip;= getsmallfield ('Address_Zip’); 
dCountry:= getsmallfield ('Country'); 

dPhone_LocalNumber:= getsmallfield ('PhoneLocalNumber'); 
dPhone_FaxNumber;= getsmallfield ('PhoneFaxnumber'); 
dEmail:= getsmallfield CEmail'); 

{Add new information to AUTHOR Table} 
with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dANumber do 
next; 

(Update record } 
edit; 

SetFields([nil, dFName, dLName, dinitial, dHonorific, dinstitution, dDepartment, dMailstop, 

dAddress_Street, dAddress City, dAddress_State, dAddress Zip, dCountry, 

dPhone_LocalNumber, dPhone_FaxNumber, dEmail]); 

post; 

close; 

end; (with Authors} 

(Remove entry from TEMPAUTHOR Table} 

With Temp Authors do begin 

( Move to proper record} 

open; 

first; 

while fieldbyName('Editnumber').asstring o dENumber do 
next; 

(Delete Record} 

delete; 

close; 

end; (With TempAuthors} 

(Send the Thankyou page } 

send C<P>The information about ' + dFIonorific + ' '+ dFName +' '+ dLName +' '); 
send ('has been updated in our records.'); 
send C</CENTER>'); 
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send('<PxFORM ACTION="../cgi-win/AuChangs.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T‘>’); 
send('<PxCENTERxlNPUT TYPE="submit" Value="Review changes to another 
Author"x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERxyFORM>'); 
end {flag is valid} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2xycenter>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 
end; {FormCreate} 

end. {Application} 

Do not make changes: NoChanges.exe 



unit No_chang; 
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interface 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

TempAuthors: TTable; 

CGIEnvDatal: TCGEEnvData; 

CGIDB 1: TCGIDB; 

procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
dENumber: string; 

dflag: string; {valid program call} 

implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 

with CGEEnvDatal do 
begin 

{Standard Header} 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

appl ication. processMessages; 

createStdout; 

sendPrologue; 

send (’<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

{Determine whether flag is valid} 
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dflag;= getsmallfield ('flag'); 



if (dflag = T) then begin {flag is valid} 

send('<centerxH2>Asilomar Conference System Administration</H2x;/center>’); 
sendhr; 

dENumber ;= getsmallfield ('ENumber'); 

{Delete information from TEMP AUTHOR Table} 
with TempAuthors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('Editnumber').asstring o dENumber do 
next; 

{Delete record } 

delete; 

close; 

end; {with TempAuthors} 

{Send the Confirmation} 

send C<P>The temporary changes to the Author data have been deleted from our records.'); 

send('<PxFORM ACTION="../cgi-win/AuChangs.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value='T’>'); 
send('<PxCENTERxEsJPUT TYPE="submit" Value="Review changes to another 
Author"x/CENTERx/FORM>'); 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" 1 ">'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Go to System Admin Options 
page"x/CENTERx/FORM>’); 
end {flag is valid} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongX/H2></center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
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send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 

send C<P><hrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http;//131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGBEnvDatal} 

end; {FormCreate} 

end. {Application} 
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Input Author Name: Inputau.exe 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGEEnvDatal: TCGIEnvData; 

CGIDB 1; TCGIDB; 

procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dflag: string; {valid program call} 

implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGEEnvDatal do 
begin 

webSiteINIFilename:=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

send (’<HTMLxHEAD>’); 

SendTitle(’Asilomar Signals, Systems, and Computers'); 
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send C</HEADxBODY bgcolor=FFFFFF>'); 



{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = T) then begin {flag is valid} 

send('<center><H2>Asilomar Conference System Administration<yH2x/center>'); 
sendhr; 



send('<Hl>Edit Author Information</Hl>'); 

send('<P>To locate an author name in the database, please enter the name below: '); 
send('<PxFORM METHOD="POST" ACTION="../cgi-win/AuthSrch.exe ">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send(’<B>First Name; </BxINPUT NAME="first" Size="20" TYPE="TEXTt"> '); 
send(’<B>Last Name; </BxINPUT NAME="last" Size="20" TYPE="TEXT">'); 
send(’<B>Middle Initial; </BxINPUT NAME="initial" Size="2" TYPE="TEXT">'); 



send('<PxCEN I'ERxINPUT TYPE="submit" Value="submit author name">'); 
send('<INPUT TYPE="reset" VALUE="Clear this form"x/CENTER>'); 
send C</form>'); 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value=" 1 ">'); 

send('<PxCENTERxrNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is valid} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 
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send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 
send CRetum to the <A HREF="http://13 1. 120.20.70/Index.html">Asilomar'); 
send ('Conference On-line Submission Page</A>'); 

end; {flag **incorrect**} 

send (’</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 
end; {with CGDEnvDatal} 

end; {Procedure FormCreate} 

end. 



238 



Add a new Author; AuAdd.exe 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGEEnvDatal; TCGEEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel: TDataSource; 

Authors; TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

dflag; string; {valid program call} 

{Database Variables} 
dANumber ; string; 
dFName; string; 
dLName; string; 
dinitial; string; 
dHonorific; string; 
dinstitution; string; 
dDepartment; string; 
dMailstop; string; 
dAddress Street; string; 
dAddress_City; string; 
dAddress_State; string; 
dAddress Zip; string; 
dCountry; string; 
dPhone AreaCode; string; 
dPhone_LocalNumber; string; 
dPhone_FaxNumber; string; 
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dEmail; string; 



implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 

with CGDEnvDatal do begin 

{Standard Header} 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = T) then begin {flag is valid} 

send('<center><H2>Asilomar Conference System Administration</H2></center>'); 
sendhr; 

{Get data from FORM} 
dFName:= getsmallfield CFName'); 
dLName:= getsmallfield ('LName'); 
dlnitial;= getsmallfield ('Initial'); 
dHonorific;= getsmallfield (Honorific'); 
dInstitution:= getsmallfield ('Institution'); 
dDepartment:= getsmallfield ('Department'); 
dMailstop:= getsmallfield ('Mailstop'); 
dAddress_Street;= getsmallfield ('Address_Street'); 
dAddress_City:= getsmallfield ('Address_City'); 
dAddress_State:= getsmallfield ('AddressState'); 
dAddress_Zip;= getsmallfield ('Address_Zip'); 
dCountry:= getsmallfield ('Country'); 
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dPhone_LocalNnmber:= getsmallfield (PhoneLocalNumber'); 
dPhone_FaxNumber:= getsmallfield (PhoneFaxnumber'); 
dEmail:= getsmallfield ('Email'); 

{Append data to AUTHOR Table} 

Authors.open; 

Authors.AppendRecord([nil, dFName, dLName, dinitial, dHonorific, dinstitution, 
dDepartment, dMailstop, 

dAddress_Street, dAddress_City, dAddress_State, dAddress_Zip, dCountry, nil (old 
areacode), 

dPhone LocalNumber, dPhone FaxNumber, dEmail]); 

Authors, close; 

(Send the Thankyou page } 

send C<P>The information about ' + dHonorific + ' '+ dFName +' '+ dLName +' '); 
send ('has been added to our records.'); 
send C</CENTER>'); 

send('<PxFORM ACTION="../cgi-win/InputAu.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Edit another 
Author"x/CENTERx/FORM>'); 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 

end (flag is valid} 

else begin (flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted !!</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<P><hrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 
send CRetum to the <A HREF="http;//131.120.20.70/Index.html">Asilomar'); 
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send ('Conference On-line Submission Page</A>'); 



end; {flag **incorrect**} 

send ('</BODYx/HTML>'); 
closeStdout; 
cIoseApp( application ); 
end; {with CGlEnvDatal} 

end; {FormCreate} 

end. {Application} 
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Multiple Matches: AuMulthexe 



interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGEDBl; TCGIDB; 

DataSourcel; TDataSource; 

Table 1: TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM) 

procedure TForml. FormCreate(Sender; TObject); 
var 

{Database Variables} 
dANumber: string; 
dbFName; string; 
dbLName: string; 
dblnitial: string; 
dbHonorific: string; 
dblnstitution: string; 
dbDepartment; string; 
dbMailstop; string; 
dbAddress_Street: string; 
dbAddress City: string; 
dbAddress_State: string; 
dbAddress Zip; string; 
dbCountry: string; 



243 



dbPhone_LocalNumber; string; 
dbPhone_FaxNumber: string; 
dbEmail: string; 

TC; TDataSet; 

begin {TFormCreate} 

with CGEEnvDatal do begin 

{Standard Header} 

webSiteINIFilename;=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{ Get the query string from the address} 
dANumber ;= CGIQueryString^; 

{ Get the record information } 
with Table 1 do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dANumber do 
next; 

{ Retrieve record } 

dbFName := fieldByName('FName').AsString; 
dbLName ;= fieldByName('LName').AsString; 
dblnitial := fieldByName('Initiar).AsString; 
dbHonorific := fieldByName('Honorific').AsString; 
dblnstitution ;= fieldByName('Institutiori).AsString; 
dbDepartment ;= fieldByName(Department').AsString; 
dbMailstop := fieldByNameCMailstop').AsString; 
dbAddress_Street := fieldByName('Address_Street').AsString; 
dbAddress_City := fieldByName('Address_City').AsString; 
dbAddress State := fieldByName('Address_State').AsString; 
dbAddress_Zip ;= fieldByName('Address_Zip').AsString; 
dbCountry := fieldByName('Country').AsString; 

dbPhoneLocalNumber ;= fieldByName('Phone_LocalNumber').AsString; 
dbPhone_FaxNumber ;= fieldByName('Phone_FaxNumber').AsString; 
dbEmail ;= fieldByName('Emair).AsString; 
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Close; 

end; 



(Create new page} 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 

send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxHl>Edit Author Information</Hl></center>'); 

send C<P>We have located the record in the database.'); 

sendhr; 

(Send form with Author information} 

send('<PxFORM ACTION="AuEdit.exe" METHOD="POST">'); 

send('<INPUT NAME="ANumber" TYPE="hidden" Value='"+ dANumber +'">'); 

send('<B>First Name: </BxINPUT NAME="FName" Size="25" TYPE="text" 

VALUE='"+ dbFName +"’>'); 

send('<B> Last Name: </BxINPUT NAME="LName" Size="25" TYPE="text" 

Value='" + dbLName +'">'); 

send('<B> Middle Initial: </BxINPUT NAME="InitiaI" Size="2" TYPE="text" Value='" 
+ dblnitial +'"xHR>'); 

send('<B>Honorific TitIe;</BxINPUT NAME="Honorific" Size="5" TYPE="text" 
Value='" + dbHonorific +'">'); 

send('<PxB>Institution: </BxINPUT NAME="Institution" Size="60" TYPE="text'"); 

send(' Value='" + dblnstitution +'">'); 

send('<brxB>Department: </B><INPUT NAME="Department" Size="60" 

TYPE="text" Value='" + dbDepartment +'">'); 

send('<brxB>Mail Stop: </BxINPUT NAME="Mailstop" Size="30" TYPE="text" 

Value='" + dbMailstop +'">'); 

send('<PxB> Street address: </BxINPUT NAME="Address_Street" Size="40" 
TYPE="text'"); 

send('VaIue='" + dbAddressStreet +'">'); 

send('<brxB>City: </BxINPUT NAME="Address_City" Size="20" TYPE="text" 

Value='" + dbAddress_City +'">'); 

send('<B>State: </BxINPUT NAME="Address_State" Size="2" TYPE="text" 

Value='" + dbAddressState +'">'); 

send('<brxB>Zip Code: </B><INPUT NAME=" Address_Zip" Size=" 1 0" 

TYPE="text" Value='" + dbAddress_Zip +'">'); 

send('<B>Country: </BxINPUT NAME="Coimtry" Size="25" TYPE="text" 

Value='" + dbCountry +'"> '); 

send('<PxB>Telephone number (with Area/Country codes): </BxINPUT 

NAME="Phone_LocalNumber" Size="2 1 '"); 

sendC TYPE="text"Value='" + dbPhone_LocaINumber +'">'); 

send('<brxB>Fax number (with Area/Country codes): </BxINPUT 
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NAME="Phone_Faxnumber" Size="2 1 

sendC TYPE="text"Value='" + dbPhone_FaxNumber 

send('<brxB>E-mail: </BxINPUT NAME="Email" Size="50" TYPE="text" 

Value="’ + dbEmail 

send('<P><CENTERxINPUT TYPE="submit" Value="Submit Information"> <INPUT 
TYPE="reset'"); 

send('VALUE="Reset to Original Information"x/CENTER>'); 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 

send('<INPUT TYPE="hidden" Name="flag" Value=’T'>'); 

send('<PxCENTERxENPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 

send ('</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {with cgiEnvDatal do} 
end; {Procedure TForml.FormCreate} 
end. 
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Edit an Author: Au£dit.exe 



unit Auedit; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Authors: TTable; 

CGDEnvDatal: TCGDEnvData; 

CGIDB 1: TCGIDB; 

AuthorsANumber: TIntegerField; 

AuthorsLName: TStringField; 

AuthorsFName: TStringField; 

Authorslnitial: TStringField; 

AuthorsHonorific: TStringField; 

Authorsinstitution: TStringField; 

AuthorsDepartment: TStringField; 

AuthorsMailstop: TStringField; 

AuthorsAddress_Street: TStringField; 

AuthorsAddress_City: TStringField; 

AuthorsAddress_State: TStringField; 

AuthorsAddress Zip: TStringField; 

AuthorsCountiy: TStringField; 

AuthorsPhone LocalNumber: TStringField; 

AuthorsPhone FaxNumber: TStringField; 

AuthorsEmail: TStringField; 

procedure FonnCreate(Sender: TObject); 

private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

{Database Variables} 
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dANumber; string; 
dANumberint: integer; 
dFName: string; 
dLName: string; 
dinitial: string; 
dHonorific; string; 
dinstitution; string; 
dDepartment; string; 
dMailstop: string; 
dAddress_Street; string; 
dAddress_City: string; 
dAddress State: string; 
dAddress Zip: string; 
dCountry: string; 
dPhone_AreaCode; string; 
dPhone_LocalNumber: string; 
dPhone_FaxNumber; string; 
dEmail: string; 

dflag; string; {valid program call} 

implementation 
($R *.DFM) 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

{Standard Header} 

webSiteINIFilename;=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send (’<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 

{Determine whether flag is valid} 
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dflag:= getsmallfield ('flag'); 
if (dflag = T) then begin {flag is set} 



send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Get data from Form} 
dANnmber:= getsmallfield ('ANumber'); 
dFName:= getsmallfield ('FName'); 
dLName:= getsmallfield CLName'); 
dlnitial:= getsmallfield ('Initial'); 
dHonorific:= getsmallfield ('Honorific'); 
dInstitution;= getsmallfield ('Institution'); 
dDepartment:= getsmallfield CDepartment'); 
dMailstop” getsmallfield ('Mailstop'); 
dAddress_Street;= getsmallfield ('Address_Street'); 
dAddress_City;= getsmallfield ('Address_City'); 
dAddress_State;= getsmallfield ('Address_State'); 
dAddress_Zip:= getsmallfield ('Address_Zip'); 
dCountry:= getsmallfield ('Country'); 

dPhone_LocalNumber:= getsmallfield (Phone_LocalNumber'); 
dPhoneJFaxNumber:= getsmallfield ('Phone_Faxnumber'); 
dEmail;= getsmallfield ('Email'); 

dANumberint:= StrToInt(dANumber); { Convert the dANumber back to an integer } 
with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dANumber do 
next; 

{Update record } 
edit; 

SetFields([dANumberint, dFName, dLName, dinitial, dHonorific, dinstitution, dDepartment, 
dMailstop, 

dAddress Street, dAddress City, dAddress State, dAddress_Zip, dCoimtry, 

dPhoneLocalNumber, dPhoneFaxNumber, dEmail]); 

post; 

close; 

end; {with Authors} 



249 



{Send the Thankyou page } 

send C<P>The information about ’ + dHonorific + ' '+ dFName +' '+ dLName +' '); 
send (Tias been updated in our records.'); 
send C</CENTER>'); 

send('<PxFORM ACTION="../cgi-win/InputAu.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 
send('<PxCENTERxINPUT TYPE="submit" Value="Edit another 
Author"x/CENTERx/FORM>'); 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retimi to the System Admin 
Options page"x/CENTERx/FORM>'); 

end {flag is valid} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http://131. 120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGEEnvDatal } 

end; {FormCreate} 
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end. {Application} 
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Edit an Article; Artl£dit.exe 



unit Artedit; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDBl; TCGIDB; 

DataSourcel: TDataSource; 

Query 1; TQuery; 

Table 1; TTable; 

Table2: TTable; 

Table2ANumber: TIntegerField; 

Table2FName; TStringField; 

Table2LName; TStringField; 

Table2Initial: TStringField; 

Table2Honorific: TStringField; 

Table2Institution: TStringField; 

Table2Department; TStringField; 

Table2Mailstop; TStringField; 

Table2Address_Street; TStringField; 

Table2Address_City: TStringField; 

Table2Address_State; TStringField; 

Table2Address_Zip: TStringField; 

Table2Country: TStringField; 

T able2Phone_LocalNumber: TStringF ield; 

Table2Phone_AreaCode: TStringField; 

Table2Phone_FaxNumber: TStringField; 

Table2Email: TStringField; 

Tables: TTable; 

TableSNumber; TIntegerField; 

TableSNeumonic: TStringField; 

Query INeumonic: TStringField; 

DataSource2; TDataSource; 

Query2; TQuery; 

Table4: TTable; 

QuerylNumber: TIntegerField; 

Query2Name; TStringField; 

Table4Number; TIntegerField; 
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Table4Name: TStringField; 

Query2Number; TIntegerField; 

Table IPaper Number: TIntegerField; 

Table 1 Title: TStringField; 

Table! Invited: TStringField; 

Table 1 Accepted: TStringField; 

Table 1 ContactAuthorNumber: TIntegerField; 
Table 1 Session: TStringField; 

Table lOrderInSession: TStringField; 

Table 1 PresentationTime: TStringField; 

Table IKeywordl: TStringField; 

Table lKeyword2: TStringField; 

Table 1 Keywords: TStringField; 

Table 1 Abstract: TMemoField; 

Table IContactOrder: TStringField; 
TablelFName2: TStringField; 

Table lLName2: TStringField; 

Table llnitial2: TStringField; 

Table lInstitution2: TStringField; 

Table 10rder2: TStringField; 

Table IFNameS: TStringField; 
TablelLNameS: TStringField; 

TablellnitialS: TStringField; 

Table! Institutions: TStringField; 

Table! Orders : TStringField; 

TablelFName4: TStringField; 
TablelLName4: TStringField; 

Table llnitiaM: TStringField; 

Table lInstitution4: TStringField; 

Table 1 Order4 : TStringField; 

TablelFName5: TStringField; 
TablelLNameS: TStringField; 

TablellnitialS: TStringField; 

Table 1 Institutions: TStringField; 

Table! Orders : TStringField; 

Table IFNameb: TStringField; 
TablelLNameb: TStringField; 

Table llnitial6: TStringField; 

Table llnstitutionb: TStringField; 
TablelOrderb: TStringField; 
procedure FormCreate(Sender: TObject); 

private 

( Private declarations } 
public 
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{ Public declarations } 
end; 

var 

Forml: TForml; 
dflag: string; 
dbOption: string; 
i:integer; 

implementation 

{$R *.DFM) 

procedure TForml.FormCreate( Sender. TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send C<HTML><HEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send ('</HEADxBODY bgcolor=FFFFFF>'); 



(Valid program call} 
(Which action is requested} 
(loop control variable} 



(Determine whether flag is valid } 

dflag;= getsmallfield ('flag'); 

if (dflag = T) then begin (flag is valid} 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

send('In order to select the Article you would like to view, you will have to select it from a 
list of articles.'); 

send('You have three options for building this list:<BR>'); 

(Display ALL Articles } 

sendhr; 
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sendhdr ('3', 'Choose from a list of ALL the Articles?'); 
send('<PxFORM ACTION="../cgi-win/ ArtlSrch.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" !">'); 
send('<INPUT TYPE="hidden" Name="Type" Value="all">’); 

send('<P><CENTERxINPUT TYPE="submit" Value="Show me a list of ALL of the Paper 
Titles"x/CENTERx/FORM>'); 

{Search by Article characteristics} 

send('<PxFORM METHOD="POST" ACTION="../cgi-win/ArtlSrch.exe">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" 1 ">'); (send flag for verification} 

send('<INPUT TYPE="hidden" Name="Type" Value="article">'); 

sendhr; 

sendhdr ('3', 'Choose from a list of Articles with these characteristics?'); 

send('<PxcenterxB>Invited Papers: </B><SELECT NAME="invited">'); 

send('<OPTION> Do not search on this field'); 

send('<OPTION> Yes'); 

send('<OPTION> No'); 

send('</SELECT>'); 

send('<PxB>Accepted Papers; </BxSELECT NAME="accepted">'); 

send('<OPTION> Do not search on this field'); 

send('<OPTION> Yes'); 

send('<OPTION> No'); 

send('</SELECT>'); 

(Pull Sessions from SESSION Table and display on pull-down menu} 
with Query 1 do begin 
close; 
sql.clear; 

sql.add('Select Number, Neumonic FROM Session'); 
open; 

{Build option menu from query results } 

Table3.open; 

Table3. first; 

send('<PxB>Sessions: </BxSELECT NAME=" Session ">'); 
send('<OPTION> Do not search on this field'); 

for i := 1 to Recordcount do begin 

dbOption:= Table3.fieldByNameCNeumonic').Asstring; 
send('<OPTION> ' +dbOption+ "); 

Table3.next; 

end; {for all records in the query result} 
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send('</SELECT>’); 



Table 1. close; 
end; {withQueryl} 

{Pull Keywords from KEYWORD Table and display on pull-down menu} 

with Query2 do begin 
close; 
sql.clear; 

sql.add('Select * FROM Keyword '); 
open; 

{Move records from query result to stringlist} 

Table4.open; 

Table4. first; 

sendC<PxB>Keyword: </BxSELECT NAME="Keyword">'); 
send('<OPTION> Do not search on this field’); 

while not Table4.EOF do begin 
dbOption:= T able4 . fieldByNameCName’). Asstring; 
send('<OPTION> ’ +dbOption+ "); 

Table4.next; 

end; {for all records in the query result} 
send('</SELECT>’); 
end; {withQuery2} 

send('<P><INPUT TYPE="submit" Value="Show me a list of Articles like this"> '); 
send(’<INPUT TYPE="reset" VALUE="Reset Article Fields"x/CENTERx/form>'); 

{Search by Author Name} 

send(’<PxFORM ACTION="../cgi-win/ArtlSrch.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" 1 ">'); {send flag for verification} 

send('<INPUT TYPE="hidden" Name="Type" Value="author">’); 



sendhr; 

sendhdr ('3', 'Choose from a list of Articles by this Author?'); 

send (’<PxCENTERxB>Author First Name: </BxINPUT NAME="fhame" Size="25" 
TYPE="text">’); 

send C<PxB> Author Last Name: </BxINPUT NAME="lname" Size="25" 
TYPE="text''>’); 

send('<PxINPUT TYPE="submit" Value="Find an Article by this Author"> '); 
send(’<INPUT TYPE="reset" VALUE="Clear Names"x/CENTERx/form>'); 
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sendhr; 

send('<P><FORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" 1 

send('<P><CENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 

send ('</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end (flag is valid} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<Pxhrxp><IMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 
end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. {Application} 
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Search for the Article: ArtlSrch.exe 



unit Artsrch; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Query 1: TQuery; 

Table 1: TTable; 

Table2: TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

Query2: TQuery; 

DataSource2: TDataSource; 

QuerylTitle; TStringField; 

Query2Title; TStringField; 

QuerylPaper_Number; TIntegerField; 

CGIDB2; TCGIDB; 

Query2Paper_Number: TIntegerField; 

Tables ; TTable; 

DataSourceS; TDataSource; 

QueryS: TQuery; 

QuerySANumber; TIntegerField; 

CGIDB3: TCGIDB; 

QuerySFName: TStringField; 

QuerySLName: TStringField; 

QuerySInitial: TStringField; 

QuerySHonorific: TStringField; 

QuerySInstitution: TStringField; 

CGIDB4: TCGIDB; 

DataSource4: TDataSource; 

Table4; TTable; 

Query4: TQuery; 

Query4Paper_Number; TIntegerField; 

Query4Title: TStringField; 

Table 1 Paper_Number: TIntegerF ield; 

TablelTitle: TStringField; 

Table 1 Invited: TStringField; 

Table 1 Accepted: TStringField; 
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Table IContactAuthorNumber; TIntegerField; 
Table 1 Session; TStringField; 
TablelOrderInSession; TStringField; 

T able 1 PresentationTime; TStringField; 

Table 1 Keyword 1: TStringField; 

Table lKeyword2: TStringField; 

Table 1 Keywords: TStringField; 
TablelAbstract: TMemoField; 

Table IContactOrder; TStringField; 

Table lFName2: TStringField; 

Table lLName2: TStringField; 

Tablellnitial2: TStringField; 

Table lInstitution2: TStringField; 

Table 10rder2; TStringField; 

TablelFNameS; TStringField; 

Table ILNameS: TStringField; 

Table 1 Initials: TStringField; 

Table 1 Institutions; TStringField; 

Table 1 Orders : TStringField; 

TablelFName4: TStringField; 
TablelLName4; TStringField; 

Table llnitial4: TStringField; 
TablelInstitution4; TStringField; 
TablelOrder4; TStringField; 

TablelFNameS: TStringField; 
TablelLNameS; TStringField; 

TablellnitialS: TStringField; 

Table 1 Institutions: TStringField; 
TablelOrderS: TStringField; 

TablelFNameb: TStringField; 

Table ILNameb: TStringField; 

Tablellnitialb: TStringField; 
Tablellnstitutionb; TStringField; 

Table lOrderb: TStringField; 

T able2Paper_Number; TIntegerF ield; 
Table2Title: TStringField; 

Table2Invited; TStringField; 

Table2 Accepted: TStringField; 
Table2ContactAuthorNumber: TIntegerField; 
Table2Session; TStringField; 
Table20rderInSession: TStringField; 
Table2PresentationTime; TStringField; 
Table2Keywordl: TStringField; 
Table2Keyword2: TStringField; 
Table2Keyword3: TStringField; 
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Table2 Abstract; TMemoField; 
Table2ContactOrder: TStringField; 
Table2FName2: TStringField; 
Table2LName2; TStringField; 

Table2Initial2: TStringField; 
Table2Institution2; TStringField; 
Table20rder2: TStringField; 

Table2FName3: TStringField; 
Table2LName3; TStringField; 

Table2Initial3: TStringField; 
Table2Institution3; TStringField; 
Table20rder3: TStringField; 

Table2FName4; TStringField; 
Table2LName4: TStringField; 

Table2Initial4; TStringField; 
Table2Institution4: TStringField; 
Table20rder4: TStringField; 

Table2FName5; TStringField; 
Table2LName5: TStringField; 

Table2Initial5; TStringField; 
Table2Institution5; TStringField; 
Table20rder5: TStringField; 

Table2FName6: TStringField; 
Table2LName6: TStringField; 

Table2Initial6: TStringField; 
Table2Institution6; TStringField; 
Table20rder6: TStringField; 

T able4Paper_Number: TIntegerField; 
Table4Title: TStringField; 

Table4Invited; TStringField; 

Table4 Accepted: TStringField; 

T able4ContactAuthorNumber; TIntegerF ield; 
Table4Session; TStringField; 
Table40rderInSession: TStringField; 
Table4PresentationTime: TStringField; 
Table4Keywordl : TStringField; 
Table4Keyword2: TStringField; 
Table4Keyword3; TStringField; 

Table4 Abstract: TMemoField; 
Table4ContactOrder: TStringField; 
Table4FName2: TStringField; 
Table4LName2: TStringField; 

Table4Initial2: TStringField; 
Table4Institution2: TStringField; 
Table40rder2: TStringField; 
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Table4FName3: TStringField; 

TabIe4LName3; TStringField; 

Table4Initial3; TStringField; 

Table4Institution3: TStringField; 

Table40rder3: TStringField; 

Table4FName4: TStringField; 

Table4LName4; TStringField; 

Table4Initial4; TStringField; 

Table4Institution4: TStringField; 

Table40rder4: TStringField; 

Table4FName5: TStringField; 

Table4LName5: TStringField; 

Table4Initial5; TStringField; 

Table4Institution5; TStringField; 

Table40rder5; TStringField; 

Table4FName6: TStringField; 

Table4LName6: TStringField; 

Table4Initial6; TStringField; 

Table4Institution6; TStringField; 

Table40rder6: TStringField; 

Table3ANumber; TIntegerField; 

Table3LName: TStringField; 

Table3FName: TStringField; 

Table3Initial: TStringField; 

Table3Honorific: TStringField; 

Table3 Institution; TStringField; 

Table3Department; TStringField; 

Table3Mailstop; TStringField; 

Table3Address_Street: TStringField; 

Table3Address_City; TStringField; 

Table3Address_State: TStringField; 

Table3Address_Zip: TStringField; 

Table3Country: TStringField; 

Table3Phone_LocalNumber: TStringField; 
Table3Phone_FaxNumber: TStringField; 

Table3Email; TStringField; 
procedure FormCreate(Sender: TObject); 
procedure CGIDB10nSendingHotField(currentRecord: TDataset; 
var s: OpenString); 

procedure CGIDB20nSendingHotField(currentRecord; TDataset; 
var s: OpenString); 

procedure CGIDB3SendingHotField(currentRecord: TDataset; 
var s; OpenString); 

procedure CGIDB4SendingHotField(currentRecord; TDataset; 
var s: OpenString); 
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private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml ; TForml; 

function MixCaseStr(S: string); string; 
implementation 
{$R *.DFM} 

J:fe:fc:fe*****:fc:fc:fc:fc*:fc*:fc***:te**:fc***:te*************************J 

function MixCaseStr(S: string); string; 

{ This function converts a string to Mixed case. 

That is Capital first letter and the rest lower case. } 

var 

i; integer; 
begin 

if (S[l] >= 'a') and (S[l] <= V) then 

Dec(S[l], 32); 

for i ;= 2 to Length(S) do 

if (S[i] >= W) and (S[i] <= T) and (S[i-l]o' ') and (S[i-l]o'-') and (S[i-l]o'c') then 
Inc(S[i],32); 

MixCaseStr ;= S; 

end; 



procedure TForml. FormCreate(Sender; TObject); 
var 

ANumberlist; Tstringlist; {list of ANumber retrieved from AUTHOR Table which match 
query name request} 

i, count; integer; {loop variable} 

Temp ANumber; string; 
temp;string; 

dbANumber; string; 
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countstr; string; 
dPaperNumber: string; 
dflag; string; 
dtype: string; 

dinvited; string; 
daccepted; string; 
dfhamein: string; 
dlnamein; string; 
dfhame: string; 
dlname: string; 
dSession; string; 
dkeyword; string; 

MySelector: integer; 

ANumberint; integer; 

TC; TDataSet; 

begin 

with CGIEnvDatal do begin 
{Standard Header} 
webSiteINIFilename:==paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application.processMessages; 
createStdout; 
sendPrologue; 

{HTML Header} 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEAD><BODY bgcolor=FFFFFF>'); 



{Determine whether flag is valid} 

dflag;= getsmallfield ('flag'); 

if (dflag = '1') then begin {flag is set} 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 
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{ Get type from search page } 

dtype:= getsmallfield ('type'); { Flag to determine type of search } 

(Decide what action is required} 

if dtype = 'all' then MySelector := 1 ; 
if dtype = 'article' then MySelector := 2; 
if dtype = 'authof then MySelector := 3; 

case MySelector of 
1 ; begin {ALL} 

with Query 1 do begin 

prepare; ( Optimizes query } 

close; 

sql.clear; 

sql.add('Select * FROM Submissi'); 
sql.add( 'Order by Title ' ); 
open; 

count” Recordcoimt; 
countstr;= inttostr (count); 

send('<Pxcenter>There are ' +countstr+ ' records in the Submission Table.<P>'); 
CGEDBl.drawtable; (display all titles} 
send C</center>'); 
end; { with Query 1} 

end; (if all} 

2: begin {Article} 

dinvited:= getsmallfield ('invited'); 
daccepted” getsmallfield ('accepted'); 
dsession— getsmallfield ('session'); 
dkeyword” getsmallfield ('keyword'); 

if (dinvited = 'Do not search on this field') and (daccepted = 'Do not search on this field') 
and (dsession = Do not search on this field') and (dkeyword = Do not search on this 

field’) 

then begin 

{another ALL search} 
with Query 1 do begin 

prepare; ( Optimizes query } 

close; 

sql.clear; 
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sql.add(’Select * FROM Submissi’); 
sql.add( 'Order by Title ' ); 
open; 

count' .= Recordcount; 
countstr;= inttostr (count); 

send('<P><center>There are ' +countstr+ ' records in the Submission Table.<P>'); 
CGIDBl.drawtable; (display all titles} 
send C</center>'); 
end; { with Query 1} 
end (if nothing selected} 

else begin {article} 

(Do the article query requested} 

(Find the Titles that match the request} 
with Query2 do begin 

close; 

sql.clear; 

sql.add('Select*FROM Submissi WHERE '); 

(Invited} 

if dinvited = 'Yes' then 
sql.add ('Invited = "y"') 
else if dinvited = "No' then 
sql.add ('Invited = "n"'); 



if (daccepted o Do not search on this field')and (sql. count = 2) then 
sql.add (' and '); (need an 'and' between statements} 

{Accepted} 

if daccepted = 'Yes' then 
sql.add ('accepted = "y"') 
else if daccepted = 'No' then 
sql.add ('accepted = "n"'); 

{Session} 

if (dsession o Do not search on this field') and (sql.count >= 2) then 
sql.add (' and '); (need an 'and' between statements} 

if (dsession o 'Do not search on this field') then 
sql.add ('Session = '" +dsession+ ""); 

{Keyword} 

if (dkeyword o Do not search on this field') and (sql.count >= 2) then 
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sql.add (’ and '); {need an ’and’ between statements} 



if (dkeyword o 'Do not search on this field') then 

sql.add ('(Keyword 1 = '" +dkeyword+ '" or Keyword2 = '" +dkeyword+ '" or Keywords = 
'" +dkeyword+ 



open; 

send C<center>'); 
if recordcount = 0 then begin 

sendhdr('2', 'There were no records that matched your query!'); 
send('You may <a href="../cgi-win/ArtlEdit.exe">Do another Query</a> of the 
Database.'); 

send C</centerxp>'); 
end 

else begin 

CGIDB2 . drawT able; 
send C</centerxp>'); 

sendCHere are the Titles that match your request. Click on the Title Name for the record 
you would like '); 

send('to view.<p>If you believe the record you are looking for is under another name,'); 
send(' you may <a href="../cgi-win/ArtlEdit.exe">Do another Query</a> of the 
Database.'); 
end; 



end; {query2} 
end; {else} 
end; {case article} 

3: begin {author} 

{Get Author Name} 
dFNamein:= getsmallfield ('fname'); 
dfhame:= MixCaseStr(dFNamein); 

dLNamein:= getsmallfield ('Iname'); 
dlname:= MixCaseStr(dLNamein); 

{Find out if name is in contact authors. Only the last name is required, 
but the first name will help narrow the search. } 

if (dlname o ") then begin 
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{Search for name in AUTHOR Table} 
with QueryS do begin 
close; 
sql.clear; 

{If both the first and last name is given, search for match on both} 
if (dfhame o ") then 

sql.add('Select * FROM Author WHERE FName = +dfname+ and LName = 
+dlname+ "") 

{Only the last name is given, so search only on it} 

else 

sql.add(’Select ANumber FROM Author WHERE LName = +dlname+ 

{execute the Query} 
open; 

{Display results} 

send ('<Pxcenter>'); 

If Recordcount > 0 then begin 
CGIDBS.DrawTable; 

send('<P>If the Author sought was not the Contact Author for the paper, their name will 
not appear'); 

send(' on this list. To continue the search, click on the "Not a Contact Author" button 
below.'); 

send('<PxFORM ACTION="../cgi-win/ArtlAuth.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<INPUT TYPE="hidden" Name="getauthor" Value="NotContactAuthor">'); 
send('<INPUT TYPE="hidden" Name="fhame" Value='" +dfhame+ '">'); 
send('<INPUT TYPE="hidden" Name="lname" Value='" +dlname+ '">'); 
send('<PxCENTERxINPUT TYPE="submit" Value=" Not a Contact Author 
"></CENTERx/FORM>'); 
end 



else begin {The name is not a ontact Author so do the search on Other Anthers only} 

with Query4 do begin 
close; 
sql.clear; 

sql.add('Select*FROM Submissi WHERE '); 

{If there is a First name given, then search for first and last name match in 
Other Authors} 
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if dfhame o " then 

sql.add ('(LName2 = +dlname+ and FName2 ="' +dfhame+ "') or (LNameS 

m 

+dlname+ and FNameS ="' +dfhame+ "') or (LName4 = "'+dlname+ and 

FName4 =’" 

+dfiiame+ "') or (LName5 = +dlname+ and FNameS = +dfhame+ "') or 
(LName6 = +dlname+ and FName6 ="' +dfhame+ 

{Otherwise, search only for last name match in Other Authors} 
else sql.add ('(LName2 = +dlname+ or LNameS = "'+dlname+ or LName4 

Iff 

+dlname+ or LNameS = +dlname+ or LName6 = "'+dlname+ 



open; 

If Recordcoimt >0 then CGIDB4.DrawTable 
else send('There are no Authors in the database with the name <B>' + dfname + ' ' 
dlname + '</B>.'); 

send('<PxFORM ACTION="../cgi-win/ArtlEdit.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T'>’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Query another 
Article"x/CENTERx/FORM>'); 
end; (with query 4} 

end; {if recordcount > 0} 

end; {withQueryS} 

end {If dlname o'* then} 

else begin 

sendhdr('2', 'You must enter a last name!'); 

send(’<PxFORM ACTION="../cgi-win/ArtlEdit.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<P><CENTERxINPUT TYPE="submit" Value="Query another 
Article"x/CENTERx/FORM>'); 

end; {If dlname o" else} 

end; {case author} 
end; {case} 

{ HTML Footer} 
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sendhr; 

send('<PxFORM ACTION="../cgi-win/ Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end {flag is valid} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<center><H2>Your password was <strong>not accepted! !</strongx/H2x/center>’); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 
end; {with cgiEnvDatal do} 
end; {Procedure TForml.FormCreate} 



procedure TForml.CGEDB10nSendingHotField(currentRecord; TDataset; 
var s: OpenString); 

begin 

s:=' <A HREF=". ./cgi-win/ArtlView.exe?'+ 
currentrecord.fieldbyName('Paper_Number').AsString + '">' 

+ currentrecord.FieldbyName('Title').AsString+ '</A>'; 
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end; (Procedure TForml.CGlDBlOnSendingHotField} 



procedure TForml.CGEDB20nSendingHotField(currentRecord: TDataset; 
var s; OpenString); 
begin 

s:='<A HREF=". ,/cgi-win/Artl View.exe?'+ 
currentrecord.fieldbyName('Paper_Number').AsString + 

+ currentrecord.FieldbyName('Title').AsString + '</A>'; 

end; (Procedure TForml.CGDDBlOnSendingHotFieid} 

procedure TForml.CGIDB3SendingHotField(curTentRecord: TDataset; 

var s: OpenString); 
begin 

s:='<A HREF="../cgi-win/ArtlAuth.exe?'+ currentrecord.fieldbyName('ANumber').AsString + 

iii^f 

+ currentrecord.FieldbyName('ANuniber').AsString + '</A>'; 

end; (Procedure TFomil.CGIDB30nSendingHotField} 

procedure TForml.CGIDB4SendingHotField(currentRecord: TDataset; 
var s: OpenString); 
begin 

s:- <A HREF=". ./cgi-win/Artl View.exe?'+ 
currentrecord.fieldbyName(Paper_Number').AsString + 

+ currentrecord.FieldbyName('Title').AsString + '</A>'; 

end; (Procedure TForinl.CGlDB40nSendingHotField) 

end. 
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Article by Author: ArtlAuth.exe 



unit Artauth; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGEDBl: TCGIDB; 

DataSourcel: TDataSource; 

Query 1; TQuery; 

Table 1: liable; 

Query lPaper_Number: TIntegerField; 

Query 1 Title: TStringField; 

Query2: TQuery; 

DataSource2: TDataSource; 

Tables: TTable; 

Table2: TTable; 

DataSourceS: TDataSource; 

Query2Paper_Number: TIntegerField; 

Query2Title: TStringField; 

CGIDB2: TCGIDB; 

TablelPaper Number: TIntegerField; 

TablelTitle: TStringField; 

Table linvited: TStringField; 

Table! Accepted: TStringField; 

Table 1 ContactAuthorNumber: TIntegerField; 

Table 1 Session: TStringField; 

Table 1 OrderInSession : TStringField; 

TablelPresentationTime; TStringField; 

TablelKeywordl: TStringField; 

TablelKeyword2: TStringField; 

Table 1 Keywords: TStringField; 

Table 1 Abstract: TMemoField; 

Table IContactOrder: TStringField; 

Table lFName2: TStringField; 

TablelLName2; TStringField; 

Table llnitial2: TStringField; 

TablelInstitution2: TStringField; 

Table 10rder2: TStringField; 
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TablelFNameS: TStringField; 

Table ILNameS: TStringField; 

Tablel Initials.- TStringField; 

Table 1 Institutions: TStringField; 

Table 1 Orders : TStringField; 

Table lFName4: TStringField; 

Table lLName4; TStringField; 

Table llnitiaM: TStringField; 

Table lInstitution4: TStringField; 

Table 10rder4: TStringField; 

TablelFNameS: TStringField; 

Table ILNameS: TStringField; 

Table 1 Initial 5: TStringField; 

Table 1 Institutions: TStringField; 
TablelOrderS: TStringField; 

Table IFNameb; TStringField; 
TablelLNameb: TStringField; 

Tablellnitial6: TStringField; 

Table llnstitutionb: TStringField; 

Table lOrderb: TStringField; 

TableSPaper Number: TIntegerField; 
TableSTitle: TStringField; 

Tables Invited: TStringField; 

TableSAccepted: TStringField; 
TableSContactAuthorNumber: TIntegerField; 
Tables Session: TStringField; 
TableSOrderInSession: TStringField; 
TableSPresentationTime: TStringField; 
TableSKeywordl: TStringField; 
TableSKeyword2: TStringField; 

Tables Keywords.- TStringField; 

Tables Abstract: TMemoField; 
TableSContactOrder: TStringField; 
TableSFName2: TStringField; 
TableSLName2: TStringField; 

TableSInitial2: TStringField; 
TableSInstitution2: TStringField; 
TableSOrder2: TStringField; 

TableSFNameS: TStringField; 
TableSLNameS: TStringField; 

Tables Initials: TStringField; 
TableSInstitutionS: TStringField; 
TableSOrderS: TStringField; 

TableSFName4: TStringField; 
TableSLName4: TStringField; 



272 



Table3Initial4; TStringField; 

Table3Institution4: TStringField; 

Table30rder4; TStringField; 

Table3FName5: TStringField; 

Table3LName5; TStringField; 

Table3Initial5: TStringField; 

Table3Institution5: TStringField; 

Table30rder5: TStringField; 

Table3FName6: TStringField; 

Table3LName6; TStringField; 

Table3Initial6; TStringField; 

Table3Institution6; TStringField; 

Table30rder6; TStringField; 
procedure FormCreate(Sender; TObject); 
procedure CGIDBlSendingHotField(currentRecord: TDataset; 
var s: OpenString); 

procedure CGIDB2SendingHotField(currentRecord; TDataset; 
var s: OpenString); 

procedure CGIDB3SendingHotField(currentRecord: TDataset; 
var s: OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dflag: string; (valid program call} 

dANumber, dANumberstr; string; 
dFName : string; 
dLName : string; 

dGetAuthor; string; 

dANumberint, count 1, count2: integer; 
implementation 
($R *.DFM} 

procedure TForml.FormCreate( Sender; TObject); 
begin 
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wdth CGIEnvDatal do begin 



{Standard Header} 

webSiteINIFilename:=paramstr( I ); 

application.onException:=cgiErrorHandler; 

application. processMessages; 

createStdout; 

sendPrologue; 

(HTML Header} 

send C<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>’); 

(Determine whether flag is valid} 
dflag:= getsmallfield ('flag'); 

if (dflag = '1') then begin (flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



(Find Author name to use in search for article} 

(Get fields from search page. 

If a contact author was not found, then will get the string 'NotContactAuthor' and will 
proceed with a search of the Other Authors 

If a contact author was found, then will get the query string with the 'ANumber*. } 



try 

{ Get the FORM information } 

dGetAuthor:= getsmallfield ('GetAuthor'); 
dfhame:= getsmallfield ('fhame'); 
dlname:= getsmallfield ('Iname'); 
finally 

{Get the ANumber string from the address} 

dANumber := CGIQueryString^; 
end; 

if dGetAuthor o cginotfoimd then begin 
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{There was NOT a Contact Author match) 



{ if dGetAuthor = ’NotContactAuthor’ then begin ) 

{Find the Titles that match the name in Other Authors only) 
with Query 1 do begin 

{query on names in Other Authors only) 

close; 

sql.clear; 

sql.add('Select*FROM Submissi WHERE ’); 

{If there is a First name given, then search for first and last name match in Other 
Authors) 

if dfhame o " then 

sql.add ('(LName2 = +dlname+ and FName2 =’" +dfname+ "’) or (LNameS = 
+dlname+ and FNameS ='" +dftiame+ "') or (LName4 = "’+dlname+ and FName4 

tt! 

+dftiame+ "') or (LNameS = +dlname+ and FNameS - +dfhame+ ’") or (LName6 

_ »»» 

+dlname+ and FName6 ="' +dfhame+ 

{Otherwise, search only for last name match in Other Authors) 

else sql.add ('(LName2 = +dlname+ or LNameS = "'+dlname+ or LName4 = 
"’+dlname+ or LNameS = 

+dlname+ or LName6 = "'+dlname+ 



{execute the query) 
open; 

{Display the results) 
if recordcount > 0 then begin 

send('<center>'); 

CGDDB 1 .DrawTable; 
send('</center>'); 

send('<PxFORM ACTION="../cgi-win/Artleditexe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name=’’flag’’ Value=’T’>’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Search for another 
Article"x/CENTERx/FORM>’); 

end 

else begin {No Authors found) 
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send(There are no Articles in the database with the Author <B>' + dfhame + " + 
dlname + '</B>.'); 

send(’<PxFORM ACTION="../cgi-win/ArtlEdit.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" r*>’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Query another 
Article"x/CENTERx/FORM>’); 
end; {if} 

close; 

end; {with queryl} 

end {ifdGetAuthor = 'NotContactAuthor' then} 

else begin (There was a contact author match} 

(Find the Titles that match the name in Other Authors *and’*’ in 
ContactAuthorNumber} 

{Get name of author} 
with table2 do begin 

open; 

first; 

while fieldbyname('ANumber').asstring o dANumber do 
next; 

dfhame.- fieldbyname ('FName').asstring; 
dlname:= fieldbyname CLName').asstring; 
close; 

end; {with tabl2} 

{Search for Titles with contactauthornumber} 
with Query2 do begin 

{execute the query} 
dANumberint” strtoint (dANumber); 

Query2.ParamByName('ANumber').AsInteger ;= dANumberint; 
open; 

count 1 := recordcount; 

{Display the results} 
if recordcount > 0 then begin 

send('<Pxh4>The Author ’ +dfhame+ ' ' +dlname+ ' was a Contact Author for these 
Articles.</h4>'); 
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send('<center>'); 

CGEDB2 .DrawT able ; 

send('</center>'); 

end; 

end; {With Query2} 

with Queryl do begin 

(query on names in Other Authors only) 

close; 

sql.clear; 

sql.add('Select*FROM Submissi WHERE '); 

sql.add ('(LName2 = +dlname+ and FName2 +dfhame+ ’") or (LName3 = 

+dlname+ and FNameS ="' +dfhame+ "') or (LName4 = "'+dlname+ and FName4 

+dfhame+ "') or (LNameS = +dlname+ and FName5 = +dfhame+ "') or (LName6 

» 

+dlname+ and FName6 ="' +dfhame+ 



(execute the query} 
open; 

count2:= recordcount; 

(Display the results} 
if recordcount > 0 then begin 

send('<Pxh4>The Author ' +dfhame+ ' ' +dlname+ ' was not the Contact Author for 
these Articles.</h4>'); 

send('<center>'); 

CGIDBl .DrawTable; 

send('</center>'); 

end; 

end; (with Queryl} 

if (countl = 0) and (count2 = 0) then begin 

send(There are no Articles in the database with the Author <B>' + dfname + " + 
dlname + '</B>.'); 

send(’<PxFORM ACTION="../cgi-win/ArtlEdit.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T’>’); 
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send('<P><CENTER><INPUT TYPE="submit" Value="Query another 
Article"x/CENTERx/FORM>’); 
end; {if} 

end; {else} 

{ HTML Footer} 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin Options 
page"x/CENTERx/FORM>’); 
send C</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 



end {flag is set} 

else begin {Password **incorrect**} 

send('<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send('<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send (’<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send('<P><hrxPxIMG SRC="../prototype/asil2b0.gif " align=lefl alt="Asilomar facility">'); 

sendCRetum to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send('Conference On-line Submission Page</A>'); 

send('</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {Password **incorrect**} 



end; {with CGIEnvData} 
end; {Tforml} 
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procedure TFonnl.CGIDBlSendingHotFieId(cuiTentRecord; TDataset; 

var s: OpenString); 
begin 

s:- <A HREF=". ./cgi-win/Artl View. exe?'+ 
currentrecord.fieIdbyName(Paper_Number').AsString + 

+ currentrecord.FieIdbyName('Title').AsString + '</A>'; 

end; 

procedure TFonnl.CGIDB2SendingHotField(currentRecord; TDataset; 

var s; OpenString); 
begin 

s;-<A HREF=".. /cgi-win/Artl View. exe?'+ 
currentrecord.fieldbyName(Paper_Number').AsString + 

+ currentrecord.FieIdbyName('Title').AsString + '</A>'; 

end; 

procedure TForml.CGIDB3SendingHotFieId(currentRecord: TDataset; 
var s: OpenString); 
begin 

s;-<A HREF="../cgi-win/ArtlView.exe?'+ 
currentrecord.fieldbyName(Paper_Number').AsString + 

+ currentrecord.FieIdbyName('Title').AsString + '</A>'; 

end; 

end. 
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View the Article: ArtlView.exe 



unit Art_view; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Table 1: TTable; 

CGEEnvDatal: TCGBEnvData; 

CGIDB 1: TCGIDB; 

Table2: TTable; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Keywords: TTable; 

KeywordsNumber: TIntegerField; 

KeywordsName: TStringField; 

QuerylNumber: TIntegerField; 

Query 1 Name: TStringField; 
procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 



var 

Forml: TForml; 

theabstract : TStringList; 
i: integer; 

dPaper_Number: string; 
dbOption: string; 

dbtitle: string; 
dbinvited: string; 
dbaccepted: string; 
dbANumber: string; 
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dbSession; string; 
dbOrderlnSession, 
dbPresentationTime; string; 

dbkeywordl: string; 
dbkeyword2: string; 
dbkeywordS: string; 
dbabstract; string; 
dbcontactOrder: string; 

dbfname2: string; 
dblname2: string; 
dbinitial2; string; 
dbinstitution2: string; 
dborder2: string; 

dbfhameS: string; 
dblnameS; string; 
dbinitialS: string; 
dbinstitutionS: string; 
dborderS; string; 

dbfname4: string; 
dblname4: string; 
dbinitiaW: string; 
dbinstitution4: string; 
dborder4; string; 

dbfhameS: string; 
dblnameS; string; 
dbinitialS: string; 
dbinstitutionS: string; 
dborderS: string; 

dbfhameb: string; 
dblnameb: string; 
dbinitialb: string; 
dbinstitutionb: string; 
dborderb: string; 

dbFName : string; 
dbLName : string; 
dbHonorific : string; 



implementation 



($R *.DFM} 



procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

webSiteINIFilename;=paramstr( 1 ); 
application.onException;=cgiErrorFIandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

{ Get the Paper Number Selected} 

dPaper_Number:= CGIQueryString^; 

{ Get the Paper Record from the SUBMISSION Table } 
with Table 1 do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyNameCPaper_Number').asstring o dPaper_Number do 
next; 

{ Retrieve record } 
dbtitle:= fieldByName ('title').asstring; 
dbinvited” fieldByName ('invited'), asstring; 
dbaccepted:= fieldByName ('accepted'). asstring; 
dbANumber:= fieldByName ('ContactAuthorNumber'). asstring; 
dbSession:= fieldByName ('Session').asstring; 
dbOrderInSession;= fieldByName ('OrderInSession'). asstring; 
dbPresentationTime:= fieldByName CPresentationTime').asstring; 

dbkeywordl:= fieldByName Ckeywordr).asstring; 
dbkeyword2:= fieldByName ('keyword2').asstring; 
dbkeyword3;= fieldByName ('keyword3').asstring; 

CGIDBl.memoToStringList (fieldbyname ('Abstract'), theabstract); 

dbcontactOrder;= fieldByName ('contactOrder'). asstring; 

dborder2;= fieldByName ('order2'). asstring; 
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dbfiiame2;= fieldByName ('fhame2').asstring; 
dbinitial2;= fieldByName ('initial2’).asstring; 
dblname2;= fieldByName ('lname2').asstring; 
dbinstitution2;= fieldByName (’institution2').asstring; 

dborder3;= fieldByName ('order3').asstring; 
dbfiiame3:= fieldByName ('fhame3').asstring; 
dbinitial3:= fieldByName ('initial3').asstring; 
dblname3:= fieldByName ('lname3').asstring; 
dbinstitution3:= fieldByName ('institution3').asstring; 

dborder4;= fieldByName ('order4').asstring; 
dbfhame4:= fieldByName ('fhame4').asstring; 
dbinitial4:= fieldByName ('initial4').asstring; 
dblname4:= fieldByName ('lname4').asstring; 
dbinstitution4:= fieldByName ('institution4').asstring; 

dborder5:= fieldByName ('order5').asstring; 
dbfhame5;= fieldByName ('fiiame5’).asstring; 
dbinitial5;= fieldByName ('initial5').asstring; 
dblname5;= fieldByName ('lname5').asstring; 
dbinstitution5;= fieldByName ('institution5').asstring; 

dborder6:= fieldByName ('order6').asstring; 
dbfname6:= fieldByName ('fhame6').asstring; 
dbinitial6;= fieldByName ('initial6').asstring; 
dblname6:= fieldByName ('lname6').asstring; 
dbinstitution6:= fieldByName ('institution6').asstring; 
end; 

{ Get Author Name information from the AUTHOR Table } 

with Table2 do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dbANumber do 
next; 

{ Retrieve Author Name information } 
dbFName := fieldByName('FName').AsString; 
dbLName := fieldByNameCLName').AsString; 
dbHonorific ;= fieldByName('Honorific').AsString; 
close; 
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end; 



{ Send the html page } 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send C<centerxH2>Asilomar Conference System Administration</H2x/centerxHR>'); 

send C<P>Here is the paper submitted by ' + dbHonorific + ' '+ dbFName +' '+ dbLName +'. '); 

send C<PxFORM METHOD="POST" ACTION="../cgi-win/ArtlPost.exe ">’); 
send C<INPUT TYPE="hidden" Name="flag" Value=’T’>’); 
send C<INPUT TYPE="hidden" Name="Paper_Number" Value=’"+ dPaper_Number 
send C<B>Title: </BxINPUT NAME="title" Size="80" TYPE="text" Value=’"+ dbtitle 
+"•>'); 

send C<PxB>Invited: </BxINPUT NAME="Invited" Size="2" TYPE="text" Value=’"+ 
dbinvited 

send C<B>Accepted: </BxINPUT NAME=" Accepted" Size="2" TYPE="text" Value=’"+ 
dbaccepted 

send(’<B>Session: </BxlNPUT NAME="Session" Size="5" TYPE="text" Value=’"+ 
dbSession + 

send C<B>Order in Session; </BxlNPUT NAME="OrderInSession" Size="3" TYPE="text" 
Value="’+ dbOrderInSession + 

send C<B>Presentation Time; </BxINPUT NAME="PresentationTime" Size="8" 
TYPE="text" Value="’+ dbPresentationTime 

(Pull Keywords from KEYWORD Table } 
with Query 1 do begin 
close; 
sql. clear; 

sql.add('Select * FROM Keyword '); 
open; 

{Move records from query result to Keyword #1 Pull-down menu} 

Keywords.open; 

Keywords, first; 

send('<PxB>Keyword #1; </B><SELECT NAME="Keywordl">’); 
send(’<OPTION SELECTED> ' +dbkeywordl+ "); 

while not Keywords.EOF do begin 
dbOption;= Keywords. fieldByNameCName').Asstring; 
send('<OPTION> ' +dbOption+ "); 

Keywords.next; 
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end; {for all records in the query result} 
send('</SELECT>'); 

{Move records from query result to Keyword #2 Pull-down menu} 
Keywords.first; 

send(’<PxB>Keyword #2; </BxSELECT NAME="Keyword2">'); 
if dbkeyword2 = "None' then send('<OPTION> None') 
else send('<OPTION SELECTED> ' +dbkeyword2+ "); 

while not Keywords.EOF do begin 
dbOption:= Keywords. fieldByName(Name'). Asstring; 
send(’<OPTION> ' +dbOption+ "); 

Keywords, next; 

end; {for all records in the query result} 
send(’</SELECT>'); 



{Move records from query result to Keyword #3 Pull-down menu} 
Keywords.first; 

send(’<PxB>Keyword #3: </BxSELECT NAME="Keyword3">'); 
if dbkeywordS = 'None' then send('<OPTION> None') 
else send('<OPTION SELECTED> ' +dbkeyword3+ "); 

while not Ke 3 words.EOF do begin 
dbOption:= Keywords.fieldByName(Name'). Asstring; 
send('<OPTION> ' +dbOption+ "); 

Keywords, next; 

end; {for all records in the query result} 
send('</SELECT>'); 



Keywords, close; 
end; {query 1} 

send C<PxB>Abstract: </BxpxTEXTAREA NAME="abstract" COLS=70 Rows= 1 0>'); 
for i := 0 to theabstract.count - 1 do 
send( theabstract.strings[i] ); 
send C</TEXTAREA>'); 

theabstract.free; {release the memory held by 'theabstract'} 

sendhdr (T, 'Other Author Information'); 
send C<B>Name Position of the contact author:'); 
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send (’<INPUT NAME="contactOrder" Size="2" TYPE="text" Value=’"+ dbcontactOrder 
+->•); 

sendhr; 

send C<B>Name Position: </BxINPUT NAME="order2" Size="2" TYPE="text" Value="’+ 
dborder2 

send (’<B>First Name: </BxINPUT NAME="fhame2" Size="25" TYPE="text" Value='"+ 

dbfhame2 

send (’<B>Middle Initial: </BxINPUT NAME="initial2" Size=’T’ TYPE="text" Value=’"+ 
dbinitial2 

send C<BRxB>Last Name: </BxINPUT NAME="lname2" Size="25" TYPE="text" 
Value="'+ dblname2 

send C<BRxB>Institution:</BxINPlJT NAME="institution2" Size="60" TYPE- ’text" 
Value="'+ dbinstitution2 

sendhr; 

send C<B>Name Position: </BxINPUT NAME="order3" Size="2" TYPE="text" Value="’+ 
dborderS 

send C<B>First Name: </BxINPUT NAME="fhame3 " Size="25 " T YPE="text" Value='"+ 

dbfhame3 

send C<B>Middle Initial: </BxINPUT NAME="initial3" Size='T’ TYPE="text" Value=’"+ 
dbinitial3 

send C<BR><B>Last Name: </BxINPUT NAME="lname3" Size="25" TYPE="text" 
Value=’"+ dblname3 

send C<brxB>Institution:</BxINPUT NAME="institution3" Size="60" TYPE="text" 
Value- "+ dbinstitution3 



sendhr; 

send C<B>Name Position: </BxINPUT NAME="order4" Size="2" TYPE="text" Value="'+ 
dborder4 

send (’<B>First Name: </BxINPUT NAME="fhame4" Size="25 " T YPE="text" Value="’+ 

dbfname4 

send C<B>Middle Initial: </BxINPUT NAME="initial4" Size=’T" TYPE="text" Value="'+ 
dbinitial4 

send C<BRxB>Last Name: </BxINPUT NAME="lname4" Size="25" TYPE="text" 
Value=’"+ dblname4 

send ('<BR><B>Institution:</BxINPUT NAME="institution4" Size="60" TYPE="text" 
Value="’+ dbinstitution4 



sendhr; 

send (’<B>Name Position: </BxINPUT NAME="order5" Size="2" TYPE="text" Value="'+ 
dborderS 

send (’<B>First Name: </BxINPUT NAME="fhameS" Size="25" TYPE="text" Value=’"+ 

dbfnameS 

send (’<B>Middle Initial: </BxINPUT NAME="initial5" Size=’T" TYPE="text" Value="’+ 
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dbinitial5 

send (’<BRxB>Last Name; </BxINPUT NAME="lname5" Size="25" TYPE="text" 
Value="'+ dblnameS 

send (’<BRxB>Institution;</BxENPUT NAME="institution5" Size="60" TYPE-'text" 
Value="'+ dbinstitutionS 

sendhr; 

send C<B>Name Position: </BxINPUT NAME="order6" Size="2" TYPE="text" Value="'+ 
dborderb 

send C<B>First Name: </BxINPUT NAME="fhame6" Size="25" TYPE="text" Value="'+ 

dbfnameb 

send (’<B>Middle Initial: </BxINPUT NAME="initial6" Size="l" TYPE="text" Value=’"+ 
dbinitial6 

send C<BRxB>Last Name: </BxINPUT NAME="lname6" Size="25" TYPE="text" 
Value="'+ dblnameb 

send ('<BRxB>Institution;</BxINPUT NAME="institution6" Size="60" TYPE="text" 
Value=’"+ dbinstitutionb 

send C<PxCENTERxINPUT TYPE="submit" Value="Record these changes to Article 
Information"> <INPUT TYPE="reset’"); 

send (' VALUE="Reset to Original Values"></CENTERx/FORM>’); 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 

send('<INPUT TYPE="hidden" Name="flag" Value='T’>’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Rehim to the System Admin 
Options page"x/CENTERx/FORM>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); { don't leave form around } 

end; {with CGIEnvDatal} 
end; {with FormCreate} 
end. 
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Post the Article: ArtlPostexe 



unit Art_post; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal : TCGEEnvData; 

CGIDB 1; TCGIDB; 

Table IPaper Number; TIntegerField; 

TablelTitle: TStringField; 

Tablel Invited: TStringField; 

TablelAccepted: TStringField; 

Table 1 ContactAuthorNumber: TIntegerField; 

Tablel Session: TStringField; 

Table 1 OrderInSession: TStringFiel d; 

Table IPresentationTime: TStringField; 

Table 1 Keyword 1: TStringField; 

Table lKeyword2: TStringField; 

TablelKeywordS: TStringField; 

TablelContactOrder: TStringField; 

TablelFName2: TStringField; 

TablelLName2: TStringField; 

Table llnitial2: TStringField; 

Table lInstitution2: TStringField; 

Table 10rder2: TStringField; 

TablelFNameS: TStringField; 

TablelLNameS: TStringField; 

TablellnitialS: TStringField; 

Tablel Institutions: TStringField; 

Tablel Orders : TStringField; 

Table lFName4: TStringField; 

Table lLName4: TStringField; 

Table llnitial4: TStringField; 

TablelInstitution4: TStringField; 

Table 10rder4: TStringField; 

TablelFNameS: TStringField; 

TablelLNameS: TStringField; 
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Table 1 Initials; TStringField; 

Table 1 Institutions: TStringField; 

Table 1 Orders ; TStringField; 

TablelFNameb; TStringField; 

Table ILNameb; TStringField; 

Tablellnitial6; TStringField; 

Table llnstitutionb: TStringField; 

Table lOrderb: TStringField; 

Table 1 Abstract: TMemoField; 
procedure FormCreate( Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
theabstract : TStringList; 
dANumber: string; 
dANumberint: integer; 
dPaper Number: string; 
dtitle; string; 
dinvited: string; 
daccepted; string; 
dsession: string; 

dOrderInSession, dPresentationTime; string; 

dkeywordl: string; 
dkeyword2: string; 
dkeywordS; string; 
dabstract; string; 
dcontactOrder: string; 

dfname2: string; 
dlname2: string; 
dinitial2: string; 
dinstitution2: string; 
dorder2; string; 

dfhameS; string; 
dlnameS: string; 
dinitiaB: string; 
dinstitutionS: string; 
dorderS: string; 
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dfhame4; string; 
dlname4: string; 
dinitial4; string; 
dinstitution4: string; 
dorder4; string; 

dfhame5: string; 
dlnameS: string; 
dinitialS: string; 
dinstitution5: string; 
dorderS: string; 

dfhame6; string; 
dlname6: string; 
dinitial6: string; 
dinstitution6; string; 
dorder6: string; 

dbFName : string; 
dbLName ; string; 
dbHonorific : string; 
dbEmail : string; 

addinfo: string; 

dflag: string; 

implementation 

($R *.DFM} 



{valid program call} 



procedure TForml.FormCreate( Sender; TObject); 
begin 

with CGEEnvDatal do begin 

{Initialize HTML page } 
webSiteINIFilename:=paramstr(l); 
application.onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 
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send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcoloi=ITFFFF>'); 

(Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if(dflag = T) then begin (flag is set) 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{ Get data } 

dPaper_Number;= getsmallfield ('PaperNumber'); 

dtitle;= getsmallfield ('title'); 
dinvited:= getsmallfield ('invited'); 
daccepted;= getsmallfield ('accepted'); 
dsession:= getsmallfield ('session'); 
dOrderInSession:= getsmallfield ('OrderInSession'); 
dPresentationTime:= getsmallfield ('PresentationTime'); 
dkeywordl:= getsmallfield ("keyword 1'); 
dkeyword2:= getsmallfield ('keyword2'); 
dkeyword3:= getsmallfield ('keywords'); 

theabstract ;= TStringListxreate; 
theabstract. clear; 

CGIEnvDatal.getTextArea( 'abstract', theabstract); 

dcontactOrder:= getsmallfield ('contactOrder'); 

dorder2:= getsmallfield ('order2'); 
dfhame2;= getsmallfield ('fname2'); 
dlname2:= getsmallfield ('lname2'); 
dinitial2;= getsmallfield ('initial2'); 
dinstitution2:= getsmallfield ('institution2'); 

dorderS:= getsmallfield ('orderS'); 
dfhameS:= getsmallfield ('fnameS'); 
dlnameS:= getsmallfield ('InameS'); 
dinitial3:= getsmallfield ('initials'); 
dinstitutionS:= getsmallfield ('institutions'); 
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dorder4:= getsmallfield ('order4'); 
dfhame4:= getsmallfield ('fhame4'); 
dlname4;= getsmallfield ('lname4'); 
dinitial4;= getsmallfield ('initial4'); 
dinstitution4:= getsmallfield ('institution4'); 

dorder5;= getsmallfield ('orderS'); 
dfiiame5;= getsmallfield ('fhameS'); 
dlname5;= getsmallfield ('InameS'); 
dinitial5:= getsmallfield ('initials'); 
dinstitution5:= getsmallfield ('institutions'); 



dorder6:= getsmallfield ('order6'); 
dfname6:= getsmallfield ('fname6'); 
dlname6:= getsmallfield ('lname6'); 
dinitial6:= getsmallfield ('initial6'); 
dinstitution6:= getsmallfield ('institution6'); 

{ Place Data into SUBMISSION Table} 
with Table 1 do begin 

{ Move to proper record} 

open; 

first; 

if fieldbyName('Paper_Number').asstring o dPaper_Number then 

repeat 

next; 

until fieldbyName(Paper_Number').asstring = dPaper_Number; 



{Place edited submission data to SUBMISSION Table} 
edit; 

SetFields([nil, dtitle, dinvited, daccepted, nil, dsession, dOrderInSession, 
dPresentationTime, dkeywordl, dkeyword2, 

dkeywordS, nil, dcontactOrder, dFName2, dLName2, dlnitial2, dInstitution2, dOrder2, 
dFNameS, dLNameS, 

dInitialS, dInstitutionS, dOrderS, dFName4, dLName4, dlnitial4, dInstitution4, dOrder4, 
dFNameS, dLNameS, dInitialS, dInstitutionS, dOrderS, dFNameb, dLNameb, dlnitial6, 
dinstitutionb, 

dOrderb]); 

edit; 

CGIDB 1 . StringlistT oMemo(theabstract, fieldbyname('Abstract')); 
theabstract.ffee; 
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post; 

close; 

end; {with Tablel} 



{ Send the Final page } 

sendhdr ('2', 'Article Successfully Edited'); 

send C<P>The article titled <B>'" +dtitle+ '"</B> has been updated in the Database.<P>'); 

send('<PxFORM ACTION="../cgi-win/ArtlEdit.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxCENTERxINPUT TYPE="submit" Value="Edit another 
Article"x/CENTERx/FORMxP>'); 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value-' 1">'); 

send('<P><CENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page''></CENTER><yFORM>'); 
send C</BODYx/HTML>'); 

CGIEnvDatal .closeStdout; 
closeApp( application ); 

end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, &. Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<P><hrxP><IMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 
send (Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 
send ('Conference On-line Submission Page</A>'); 
send C</BODYx/HTML>'); 
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closeStdout; 
closeApp( application ); 

end; {flag **incorrect**} 

end; (with CGIEnvDatal} 

end; {FormCreate} 

end. {Application} 



294 



Choose Session: Session.exe 



unit Session; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

Query 1; TQuery; 

Sessions: TTable; 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1: TCGIDB; 

SessionsNumber: TIntegerField; 

SessionsNeumonic: TStringField; 

Query 1 Number: TIntegerField; 

Query INeumonic: TStringField; 
procedure FormCreate(Sender: TObject); 
procedure CGIDB lSendingHotField(currentRecord: TDataset; 
var s: OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
dflag: string; 

implementation 

{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 

vsath CGIEnvDatal do begin 

{Standard Header} 
webSiteINIFilename:=paramstr( 1 ); 



295 



application. onException:=cgiErrorHandIer; 
application. processMessages; 

createStdout; 

sendPrologue; 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

{Determine whether flag is valid) 

dflag~ getsmallfield ('flag'); 

if (dflag = T) then begin {flag is set} 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{send instruction;} 

send('<center>These are the current Session Neumonics.<br>'); 

send('To edit a single Session Neumonic, simply click on the Neumonic that you would like 
to change.<BR>'); 

sendC Other options are available at the bottom of the page.<BR>'); 



{Retrieve current Session Information) 
with Query 1 do begin 

close; 

sql.clear; 

sql.add('Select*FROM Session '); 
open; 

if recordcount > 0 then begin 
CGDDBl .DrawTable; 
send('</center>'); 
end {if recordcount >0} 

else 

sendhdr ('2','There are no Sessions in the Database!'); 
end; {with Query 1} 
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{Button to Add keywords} 

send('<PxFORM ACTION="../cgi-win/SessAdd.exe" METHOD="POST">'); 
send('<INPUT TYPE=’’hidden" Name="flag" Value="l">’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Add a New 
Session"x/CENTERx/FORM>’); 

{Button to Delete keywords} 

send(’<PxFORM ACTION="../cgi-win/SessDel.exe" METHOD="POST">’); 
send(’<INPUTTYPE="hidden" Name="flag" Value='T'>’); 
send(’<PxCENTERxINPUT TYPE="submit" Value="Delete 
Session(s)"x/CENTERx/FORM>'); 



{Standard Footer} 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T’>’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send (’<P>If you are not authorized to access this information, please note that a log is’); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal ’); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxpxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http://131. 120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send (’</BODYx/HTML>’); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send (’</BODYx/HTML>’); 
closeStdout; 
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closeApp( application ); 
end; { with CGBEnvData 1 } 



end; {FormCreate} 

procedure TForml.CGIDBlSendingHotField(currentRecord: TDataset; 

var s: OpenString); 
begin 

(Hotlink for single session edit} 

s:— <A HREF="../cgi-win/SessEdit.exe?'+ currentrecord.fieldbyNameCNumber’).AsString + 

llt^l 

+ currentrecord.FieldbyName('Neumonic').AsString + '</A>'; 
end; 
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Edit a Session; SessEdit.exe 



unit Ses_edit; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGlEnvDatal: TCGEEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Sessions: TTable; 

SessionsNumber: TIntegerField; 

SessionsNeumonic; TStringField; 
procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender; TObject); 
var 

SessionNumber, Session; string; 



begin 

with CGlEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 
application.onException;=cgiErrorHandler; 
application. processMessages; 
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createStdout; 

sendPrologue; 

(Find Session to edit} 

{ Get field from search page } 

SessionNumber:= cgiQueryString'^; 

with Sessions do begin 

{Prepare the table} 

open; 

first; 

{find the correct Session} 

while SessionNumber o fieIdbynameCNumber').asstring do 
next; 

Session := fieldbynameCNeumonic'). asstring; 
end; {with Sessions} 

{Send Session edit FORM to HTML page} 

{Standard Header} 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send(’<centerxH2>Asilomar Conference System Administration</H2x/center>’); 
sendhr; 

send('Here is the Session you wanted to edit. Make changes and "Submit" them.<BR>'); 

send(’<PxFORM ACTION="../cgi-win/Sessedt2.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" !">'); 
send('<INPUT TYPE="text" NAME=" Session" SIZE="50" VALUE=’" +Session+ 
send(’<INPUT TYPE="hidden" NAME="Sessionnumber" VALUE="' +SessionNumber+ 
send('<PxCENTERxINPUT TYPE="submit" Value="Submit Change to Session">’); 
send('<INPUT TYPE="reset" VALUE="Reset to Original Session"x/CENTERx/FORM>'); 

send(’<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T’>'); 
send('<PxCENTERxINPUT TYPE="submit" Value="CANCEL - Do NOT 
change"x/CENTERx/FORM>’); 
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(Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/ Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<P><CEN lERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 

end; (with cgiEnvDatal do} 

end; (FormCreate} 

end. 
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Edit Confirmation: SesEdit2.exe 



unit Ses_edt2; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Sessions: TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

SessionsNumber: TIntegerField; 

SessionsNeumonic: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml. FormCreate(Sender: TObject); 
var 

dsession: string; 
dsessionnumber: string; 

dflag: string; {valid program call} 

begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
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application.processMessages; 

createStdout; 

sendPrologue; 

{Standard Header} 

send (’<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers’); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 

(Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = T) then begin (flag is set} 

send(’<centerxH2>AsiIomar Conference System Administration</H2x/center>'); 
sendhr; 



{ Get field from search page } 

dsession:= getsmallfield ('session'); 
dsessionnumber= getsmallfield (’sessionnumber*); 



{Put changed session into SESSION Table} 

with Sessions do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName(’Number’).asstring o dsessionnumber do 
next; 

{Update record } 
edit; 

SetFields([nil, dsession]); 

post; 

close; 

end; {with Sessions} 



{Send the Confirmation page } 

send C<P>The Session has b^n changed to <B> ’ + dsession + '<7B>.'); 
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send C</CENTERxBR>'); 



send('<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD='TOST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value='T’>’); 
send(’<PxCENTERxlNPUT TYPE="submit" Value="Edit more 
Sessions"></CENTERx/FORM>'); 



{Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" VaIue='T'>’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page’’x/CENTERx/FORM>'); 
end (flag is set} 

else begin (flag **incorrect**} 

send C<center><H2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>’); 
sendhr; 

send ('<center><H2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.’); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send (’<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes yOur URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 
send (Rehim to the <A HREF="http;//13 1 . 120.20.70/Index.html">Asilomar’); 
send (’Conference On-line Submission Page</A>’); 

end; {flag **incorrect**} 

send ('</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGEEnvDatal} 
end; {FormCreate} 

end. 
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unit Sess_add; 
interface 



Add a Session; SessAdd.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGEEnvDatal; TCGIEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel: TDataSource; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TFoiml; 
implementation 
{$R *.DFM) 

procedure TForml. FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do be^n 

webSiteINIFilename:=paramstr( 1 ); 
application.onException;=cgiErrorHandler; 
appl ication. processMessages; 

createStdout; 

sendProIogue; 



(Send Keyword ADD Form to HTML page) 

(Standard Header} 

send (’<HTMLxHEAD>’); 
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SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

sendCFill in the Session Neumonics you would like to add.<BR>'); 
send('You may fill in all or none of these fields.<BR>'); 

send('<PxFORM ACTION="../cgi-win/SessAdd2.exe" METHOD="POST">'); 
sendC<INPUT TYPE="hidden" Name="flag" Value=’T’>'); 
send('<PxB>New Session; </BxINPUT TYPE="text" NAME="Sessionl" >'); 
send('<PxB>New Session; </BxINPUT TYPE="text" NAME="Session2" >'); 
send^<PxB>New Session; </BxlNPUT TYPE="text" NAME="Session3" >'); 
send('<PxB>New Session; </BxlNPUT TYPE="text" NAME="Session4" >’); 
sendC<PxCENTCRxlNPUT TYPE="submit" Value="ADD these 
Sessions"x/CENTERx/FORM>'); 

send('<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value='T'>'); 

send(’<PxCENTERxlNPUT TYPE="submit" Value="CANCEL - Do NOT Add any 
Sessions"x/CENTERx/FORM>'); 



{Standard Footer) 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T'>’); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BOD Yx/HTML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do) 

end; {FormCreate} 

end. 
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unit Ses_add2; 
interface 



Addition Confirmation; SessAdd2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel; TDataSource; 

Sessions; TTable; 

SessionsNumber; TIntegerField; 

SessionsNeumonic; TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM} 



procedure TForml.FormCreate(Sender; TObject); 



var 

dsessionl; string; 
dsession2; string; 
dsessionS; string; 
dsession4; string; 

dbsession; string; 

dflag; string; 



{valid program call} 
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sessionPos: integer; 



begin 

with CGIEnvDatal do begin 

webSitelNIFilename :=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application-processMessages; 

createStdout; 

sendPrologue; 

{Standard Header) 
send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

{Detennine whether flag is valid) 

dflag;= getsmallfield ('flag'); 

if (dflag = ' 1 ') then begin {flag is set) 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{ Get field from search page ) 
dsessionl;= getsmallfield ('session 1'); 
dsession2:= getsmallfield ('session2'); 
dsession3:= getsmallfield ('session3'); 
dsession4;= getsmallfield ('session4'); 



{ADD Sessions into Sessions Table) 

with Sessions do begin 

{Update record ) 
open; 

if dsessionl o " then begin 
first; 

sessionPos ;= CompareStr(dsessionl, Fieldbyname ('neumonic').asstring); 
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while (not EOF) and (sessionPos < 0) do begin 

sessionPos := CompareStr(dsessionl, Fieldbyname ('neumonic').asstring); 
end; 

if sessionPos > 0 then begin 
insert; 

InsertRecord([nil, dsessionl]); 
end 

else send ('The session neumonic ' + dsessionl + ' already exists'); 
end; {if sessi<Hi o ”} 
if dsession2 o " then begin 
first; 

sessionPos ;= CompareStr(dsession2, Fieldbyname ('neumonic').asstring); 
while (not EOF) and (sessionPos < 0) do begin 

sessionPos := CompareStr(dsession2, Fieldbyname ('neumonic').asstring); 
end; 

if sessionPos > 0 then begin 
insert; 

InsertRecord([nil, dsession2]); 
end 

else send (The session neumonic ' + dsession2 + ' already exists'); 
end; (if session o ”} 
close; 

end; (with Sessions} 



(Send the Thankyou page } 

sendhdr ('3', 'The following Sessions have been ADDED.<BR>'); 

send C<PxB>' +dsessionl+ '<BR>'); 

send (" +dsession2+ '<BR>'); 

send (" 4-dsession3+ '<BR>'); 

send (" +dsession4+ '</B>'); 
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send(’</CENTER>’); 



send('<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name=”flag’’ Value=’T’>’); 
send('<PxCENTERxINPUT TYPE='’submit’’ Value="Edit more 
Sessions"x/CENTERx/FORM>'); 



{Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T’>'); 

send('<P><CENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx;/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxpxlMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 
send CRetum to the <A HREF="http;//131.120.20.70/Index.html">Asilomar'); 
send (’Conference On-line Submission Page</A>’); 

end; {flag **incorrect**} 

send ('</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGBEnvDatal} 
end; {FormCreate} 
end. 
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unit Sess_dd; 
interface 



Delete Session(s): SessDeLexe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Sessions; TTable; 

Query 1: TQuery; 

CGlEnvDatal : TCGDEnvData; 

CGEDBl: TCGIDB; 

SessionsNumber: TIntegerField; 

SessionsNeumonic: TStringField; 

QuerylNumber; TIntegerField; 

QuerylNeumonic; TStringField; 
procedure FormCreate(Sender; TObject); 
procedure CGIDB lSendingHotField(currentRecord: TDataset; 
var s: OpenStiing); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
($R *.DFM) 

procedure TFarml .FormCreate(Sender; TObject), 
var 

dflag: string; 
begin 

with CGlEnvDatal do begin 
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{Standard Header} 

webSiteINIFilename;=paramstr( 1); 

application. onException :=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send (’<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

{ Get fields from search page } 
dflag:= getsmallfield ('flag'); 

if dflag = T then begin 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

send('<center>These are the current Sessions. <br>'); 

send('To DELETE a Session, simply select the Number next to the Session that you would 
liketoDELETE.<BR>'); 

{Retrieve current Keywords} 
with Queryl do begin 

close; 

sql.clear; 

sql.add('Select*FROM Session '); 
sql.add('Order By Number'); 
open; 

{Check if any records were returned} 
if recordcount > 0 then begin 

{There are records returned} 

Sessions. Open; 

CGIDB 1 .DrawTable; 
send('</center>'); 

Sessions.Close; 

end {if recordcount >0} 

else 

{No records returned} 

sendhdr ('2','There are no Sessions in the Database to Delete!'); 
end; {with Queryl} 
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{Delete all fields option} 

send(’<PxFORM ACTION="../cgi-win/SessDel2.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<INPUT TYPE="hidden" Name="DeleteAH'' Value="Yes">'); 
send('<PxCENTERxlNPUT TYPE="submit" Value="**** Delete ALL the Sessions 
****"x/CENTERx/FORM>’); 



(HTML Footer) 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
sendC<INPUT TYPE="hidden" Name="flag" Value=’T'>’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"></CENTER></FORM>'); 

end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers<yH2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted !!</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.’); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is’); 
send (’maintained that includes your URL. You may be subject to civil and/or criminal '); 
send (’prosecution for your actions.<BR>’); 

send (’<Pxhr><PxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">’); 
send (’Return to the <A HREF=”http://131.120.20.70/Index.html">Asilomaf); 
send (’Conference On-line Submission Page</A>’); 

end; {flag **incorrect**} 

send (’</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal } 



end; {FormCreate} 
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procedure TForml.CGIDBlSendingHotField(currentRecord; TDataset; 

var s; OpenString); 
begin 

(Hotlink for single keyword edit} 

s:-<A HREF="../cgi-win/SessDel2.exe?'+ currenfrecord.fieldbyNameCNumber').AsString + 
+ currentrecord.FieldbyName('Number’).AsString + ’</A>'; 
end; 
end. 
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unit Ses_del2; 
interface 



Verification of Delete: SessDel2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGEnvDatal: TCGEnvData; 

CGIDBl: TCGIDB; 

DataSourcel: TDataSource; 

Sessions: TTable; 

SessionsNumber: TIntegerField; 

SessionsNeumonic: TStringField; 
procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
var 

SessionNumber, SessionName, dDeleteAH: string; 
begin 

with CGEnvDatal do begin 

webSiteINEilename:=paramstr( 1 ); 
application. onException:=cgiErroiilandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

(Standard Header} 

send ('<HTML><HEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers’); 
send C</HEADxBODY bgcolor=FFFFFF>’); 

send(’<centerxH2>Asilomar Conference System Administration</H2x/center>’); 
sendhr; 



(Find Session to Delete} 

{ Get Held from search page } 
try 

dDeleteAll:= getsmallfield CDeleteAll'); 
finally 

(Check to see if 'Delete all fields' is true} 

SessionNumber— cgiQueryString^; 
end; 

if getsmallfield CDeleteAll') o cginotfound then begin 

(Check to see if 'Delete ail fields' is true} 
dDeleteAll:= getsmallfield (DeleteAll'); 

if dDeleteAll = 'Yes’ then begin 

with Sessions do begin 

sendhdr ('2', 'Are you sure you want to Delete ALL of the Sessions in the Database!'); 

send('<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxCENTERxINPUT TYPE="submit" Value="CANCEL - Do NOT 
Delete"x/CENTERx/FORM>’); 

send('<PxFORM ACTION="../cgi-win/SessDel3.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">’); 
send(’<INPUT TYPE="hidden" NAME="sessionnumber" VALUE="delete">’); 
send(’<INPUT TYPE="hidden" NAME="session" VALUE="delete">’); 
send(’<PxCENTERxINPXJT TYPE="submit" Value="*’^’^ YES - DELETE ALL 
Sessions in the Database! ***"x/CENTERxyFORM>’); 
end; (with Sessions) 
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end; {if dDeleteAll} 



end {if cginotfound} 
else begin {Delete one record} 
with Sessions do begin 

{Prepare the table} 

open; 

first; 

{find the correct keyword} 

while SessionNumber o fieldbynameCNumber').asstring do 
next; 

(Get the Session Name} 

SessionName” fieldbyname('Neumonic’).asstring; 
end; {with Sessions} 

{Send Session edit FORM to HTML page} 

send('Are you sure you want to DELETE the Session <B>' +SessionName+ ’.<yBxBR>’); 

send('<PxFORM ACTION="../cgi-win/SessDel3.exe’’ METHOD=’’POST">’); 
send('<INPUT TYPE="hidden" Name="flag’' Value=” !”>'); 

send(’<INPUT TYPE='’hidden" NAME="sessionnumber” VALUE='" +SessionNumberf 
send('<INPUT TYPE="hidden" NAME="session'’ VALUE="' +SessionName^- 
send('<PxCENTERxINPUT TYPE=’’submit" Value=”Yes, DELETE this 
Session"x/CENTERx/FORM>’); 

send('<PxFORM ACTION="../cgi-win/Sessions.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag” VaIue=T’>'); 
send('<PxCENTERxlNPUT TYPE="submit" Value="CANCEL - Do NOT 
DeIete"x/CENTERx/FORM>’); 
end; {Delete one record} 

{Standard Footer} 

sendhr; 

send('<PxFORM ACTION-'. ./cgi-win/Adminpwd.exe" METHOI>="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxINPUT TYPE=''submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>’); 
closeStdout; 
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closeApp( application ); 
end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 
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unit Ses_del3; 
interface 



Deletion Confirmation: SessDel3.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Sessions; TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

SessionsNumber; TIntegerField; 

SessionsNeumonic; TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
($R *.DFM} 

procedure TForml. FormCreate(Sender; TObject); 
var 

dSessionNumber, dSession; string; 

dflag: string; {valid program call} 



begin 

with CGIEnvDatal do begin 

webSiteINIFilename;=paramstr( 1 ); 
application.onException;=cgiErrorHandler; 
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application. processMessages; 



createStdout; 

sendProIogue; 

{Standard Header} 
send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 



{Determine whether flag is valid) 

dflag:- getsmallfield ('flag'); 

if (dflag = T) then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{ Get Held from search page } 
dSession;= getsmallfield ('Session'); 
dSessionnumber:= getsmallfield ('Sessionnumber*); 



if dSession = 'delete' then begin 

(Delete ALL the Sessions} 
wifli Sessions do begin 

open; 

first; 

while not EOF do begin 
delete; 

end; (while not EOF} 
end; (with Sessions} 

sendhdr ('2', 'ALL Sessions were deleted!'); 
end {if Sdession = delete} 



else begin {Delete one Session} 
{Delete Session from SESSION Table} 
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with Sessions do begin 



{ Move to proper record} 

open; 

first; 

while fieldbyNameCNumber').asstring o dSessionnumber do 
next; 

{Delete record } 

edit; 

delete; 

close; 

end; {with Sessions} 



{Send the Thankyoa page for delete one record ) 

send C<P>The Session <B> ' + dSession + '</B> has been DELETED.</CENTERxBR>'); 

send(’<PxFORM ACTION="../cgi-win/SessDel.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name='’flag" Value=’T’>’); 
send(’<PxCENTERxlNPUT TYPE="submif Value=’’DELETE more 
Sessions"><CENTER></FORM>’); 



end; {else Delete one Session} 

send('<PxFORM ACTION="../cgi-win/Sessions.exe'’ METHOD="POST">’); 
send('<INPUT TYPE=" hidden" Name="flag’’ Value=" !">’); 
send('<PxCENTERxlNPUT TYPE="submit" Value="Edit more 
Sessions"x/CENTERx/FORM>'); 



{Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE=’*hidden" Narae="flag" Value='T’>'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 
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send ('<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access tins information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">tiy to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please iwte that a log is’); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send ('<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="AsilOmar facility">'); 
send ('Return to the <A HREF="http://13 1 . 120.20. 70/Index.html">Asilomar'); 
send ('Conference On-line Submission Page</A>'); 

end; {flag **incorrect**} 

send C<mODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 
end; {FormCreate} 
end. {Application} 
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unit Key_word; 
interface 



Choose a Keyword; Key words.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgj; 

type 

TForml = class(TForm) 

CGEEnvDatal: TCGIEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel: TDataSource; 

Query 1; TQuery; 

Table 1: liable; 

Query 1 Name; TStringField; 

TablelNumber; TIntegerField; 

Table 1 Name; TStringField; 

QueiylNumber TIntegerField; 
procedure FormCreate(Sender. TObject); 
procedure CGIDB 10nSendingHotField(currentRecord; TDataset; 
var s; OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
dflag; string; 

implementation 

{$R ♦.DFM} 

procedure TForml. FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do begin 

{Standard Header} 
webSiteINIFilename;=paramstr( 1 ); 
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application.onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

send ('<HTMLxHEAD>'); 

SendTitle(’Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>’); 



{Determine whether flag is valid} 
dflag:= getsmallfield ('flag'); 
if (dflag = T) then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Send intrnctions} 

send('<center>These are the current Keywords. <br>'); 

send('To edit a single Keyword, simply click on the Keyword that you would like to 
change.<BR>'); 

send(' Other options are available at the bottom of the page.<BR>'); 

{Retrieve current Keywords} 
with Query 1 do begin 

close; 

sql.clear; 

sql.add('Select*FROM Keyword '); 
sql.add('Order By Number'); 
open; 

if recordcoimt > 0 then begin 
Table 1. Open; 

CGEDB 1 .DrawTable; 
send('</center>'); 

Table 1. Close; 

end {if recordcount >0} 

else 

sendhdr ('2VThere are no Keywords in the Database!'); 
end; {with Query 1} 
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{Button to Add keywords} 

send('<PxFORM ACTION="./cgi-win/KeyAdd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden” Name="flag" Value='T’>’); 
send(’<PxCENTERxINPUT TYPE="submit" VaIue="Add a New 
Keyword"x/CENTERx/FORM>’); 

(Button to Delete keywords} 

send(’<PxFORM ACTION="../cgi-wiii/KeyDel.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value='T’>'); 
send('<PxCENTERxlNPUT TYPE="submit" Value- 'Delete 
Keyword(s)"x/CENTERx/FORM>’); 

(HTML Footer} 
sendhr; 

send(’<PxFORM ACT10N="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value='T’>’); 
send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send ('<centerxH2>Asilomar Conference on Signals, Systems, 8c Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this informatioiL'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.httn">try to login 

again.</A>’); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxPxlMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send ('Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar’); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

close Stdout; 

closeApp( application ); 

end; {flag **incorrect**} 



send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 
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end; {with CGIEavDatal} 



end; {FormCreate} 

procedure TForml.CGIDB10nSendingHotField(currentRecord: TDataset; 
var s; OpenString); 
begin 

{Hotlink for single keyword edit} 

s:-<A HREF="../cgi-win/KeyEdit.exe?'+ currentrecord.fieldbyNameCNumber').AsString + 
+ currentrecordFieldbyNameCName'). AsString + '</A>'; 
end; 
end. 
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unit Key_edit; 
interface 



Edit a Keyword: KeyEditexe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Keywords: TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

KeywordsNumber: TIntegerField; 

KeywordsName: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
var 

KeyNumber, KeyName; string; 



begin 

with CGIEnvDatal do begin 



webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

{Find Keyword to edit} 

{ Get field from search page } 

KeyNumber:= cgiQueryString^; 

with Keywords do begin 

{Prepare the table} 

open; 

first; 

{Move to the correct keyword} 
while KeyNumber o fieldbyname('Number').asstring do 
next; 

KeyName;= fieldbynameCName').asstring; 
end; {with Keywords} 

{Send Keyword edit FORM to HTML page} 

{Standard Header} 

send C<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send ('</HDEADxBODY bgcolor=FFFFFF>'); 

send(’<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

sendCHere is the Keyword you wanted to edit. Make changes and "Submit" them.<BR>'); 

send('<PxFORM ACTION="../cgi-windceyedit2.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send(’<INPUT TYPE="text" NAME="keyword" SIZE="50" VALUE="' +KeyName+ 
send(’<INPUT TYPE="hidden" NAME="keynumber" VALUE="' +KeyNumber+ 
send('<PxCENTERxlNPUT TYPE="submit" Value="Submit Change to Keyword">’); 
send(’<INPUT TYPE="reset" VALUE="Reset to Original 
Keyword"></CENTERx/FORM>’); 

send('<PxFORM ACTION="../cgi-winyKeywords.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxCENTERxINPUT TYPE="submit" Value="CANCEL - Do NOT 
change"x/CENTERx/FORM>'); 
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{Standard Footer} 
sendhr; 

send(’<PxFORM ACTION=^7cgi-win/Adminpwdexe'' METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value='T’>'); 
send('<PxCENTERxINPUT TYPE=="submit" VaIue="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYxdnML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiFnvDatal do} 

end; {FormCreate} 

end. {Application} 
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unit Key_edt2; 
interface 



Edit Confirmation: KeyEdit2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel: TDataSource; 
keywords; TTable; 

procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations ) 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

dkeyword; string; 
dkeynumben string; 

dflag: string; {valid program call} 

begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException;=cgiEirorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

{Standard Header} 

send ('<HTML><HEAD>'); 

SendTitle('Asiloniar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = T) then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration<;/H2x/center>'); 
sendhr; 



{ Get field from search page } 
dkeyword:= getsmallfield ('keyword'); 
dkeynumber:= getsmallfield ('keynumber’); 



{Put changed Keyword into KEYWORD Table} 

with Keywords do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyNameCNumber').asstring o dkeynumber do 
next; 

{Update record } 
edit; 

SetFields([nil, dkeyword]); 

post; 

close; 

end; {with Keywords} 



{Send the Thankyou page } 

send C<P>The Keyword has been changed to <B> ' + dkeyword + '</B>.</CENTERxBR>'); 
send(’<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD="POST">'); 
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sendC<INPUT TYPE="hidden" Name="flag" Value-" 
send('<PxCENTERxINPUT TYPE- ’submit" Value— "Edit more 
Keywords"x/CENTERx/FORM>'); 

{Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD-"POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value-" !">'); 

send('<P><CENTERxINPUT TYPE="submit” Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send ('<centerxH2>Your password was <strong>not accepted! !</strongx/H2xycenter>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>’); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send ('<PxhrxPxlMG SRC-"../prototype/asil2b0.gif " align-left alt— "Asilomar facility">'); 

send (Return to the <A HREF-"http://l 3 1.120.20.70/Index.html"> Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>’); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
close App( application ); 
end; {with CGBEnvDatal} 
end; {FormCreate} 
end. {Application} 
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unit Key_add; 
interface 



Add a Keyword: KeyAdd.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TFonn) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel; TDataSource; 

Query 1; TQuery; 

Tablel: TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dflag: string; {valid program call} 

implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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(Standard Header} 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

(Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 
if(dflag = T) then begin (flag is set} 

send('<centerxH2>Asilomar Conference System Adniimstration</H2></center>'); 
sendhr; 

(Send Keyword ADD Form to HTML page} 

send(Till in the Keywords you would like to add.<BR>'); 
send('You may fill in all or none of these fields.<BR>'); 

send('<PxFORM ACTION="../cgi-win/KeyAdd2.exe" METHOI>"POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxB>New Keyword; </BxlNPUT TYPE="text" NAME="keywordl" >’); 
send('<PxB>New Keyword: </BxINPUT TYPE="text" NAME="keyword2" >'); 
send('<PxB>New Keyword: </BxlNPUT TYPE="text" NAME="keyword3" >'); 
send('<PxB>New Keyword: </BxlNPlJT TYPE="text" NAME="keyword4" >'); 
send('<PxCENTERxlNPUT TYPE="submit" Value="ADD these 
Keywords"x/CENTERx/FORM>'); 

send('<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="CANCEL - Do NOT Add any 
Keywords"x/CENTERx/FORM>'); 



(Standard Footer} 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 

end (flag is set} 

else begin (flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
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sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>’); 
send C<P>PIease ensure that you are authorized to access this information.'); 
send (’<P>If you made an error, then please <A HREF="../proto^?pe/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxpxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send ('</BODYx/Hny[L>’); 

closeStdout, 

closeApp( application ); 

end; {flag **incorrect**} 

send C<;/BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 
end; {with CGEEnvDatal} 

end; {FonnCreate} 

end. {Application} 
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unit Key_add2; 
interface 



Addition Confirmation: KeyAdd2^xe 



uses 

SysUtils, WinTypes, WinProcs» Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGBEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel; TDataSource; 

Tablel: TTable; 

Table INumber: TIntegerField; 

TablelName: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

( Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml: TForml; 

dflag: string; {valid program call} 

implementation 
($R *.DFM} 

procedure TForml. FormCreate(Sender; TObject); 
var 

dkeywordl : string; 
dkeyword2; string; 
dkeywordS: string; 
dkeyword4; string; 

begin 

with CGIEnvDatal do begin 
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webSiteINTFilename:====paramstr( 1 ); 
application.onException:=cgiErrorHandIer; 
application. processMessages; 

createStdout; 

sendPrologue; 

{Standard Header} 

send (’<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBODY bgcoloi=FFFFFF>'); 

{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if(dflag = 'l') then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{ Get field from search page } 
dkeywordl:= getsmallfield ('keywordl'); 
dkeyword2:= getsmallfield Ckeyword2'); 
dkeyword3:= getsmallfield CkeywordS'); 
dkeyword4:= getsmallfield ('keyword4'); 



{ADD Keywords into KEYWORD Table} 

with Table 1 do begin 

{Update record } 
open; 

if dkeywordl o " then 
AppendRecord( [nil, dkeyword 1 ] ); 

if dkeyword2 o " then 
AppendRecord([nil, dkeyword2]); 

if dkeywordS o " then 
AppendRecord([nil, dkeywordS]); 
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if dkeyword4 o " then 
AppendRecord([nil, dkeyword4]); 

close; 

end; {with tablel} 



{Send the Thankyou page } 

sendhdr ('3', The following Keywords have been ADDED. <BR>'); 

send ('<PxB>' +dkeywordl+ '<BR>'); 

send C +dkeyword2+ '<BR>'); 

send ('' +dkeyword3+ '<BR>'); 

send (" +dkeyword4+ '</B>'); 

send C</CENTER>'); 

sendC<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden” Name='’flag" Value=T">’); 
send(’<PxCENTERxlNPUT TYPE="submit" Value=’’Edit more 
Keywords"x/CENTERx/FORM>'); 



{Standard Footer} 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name=’'flag" Value=T">'); 
send(’<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20,htm">try to login 
again. </A>’); 

send (’<P>If you are not authorized to access this infomiation, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<P><hrxpxlMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">’); 
send (Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 
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send ('Conference On-line Submission Page</A>'); 
send ('</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 

end; {flag **incorrect**} 

send C</BODY></HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 

end; {FormCreate} 

end. {Application} 
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unit Keydel; 
interface 



Delete Keyword(s): KeyDeLexe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Query 1; TQuery; 

Table 1; TTable; 

CGIEnvDatal: TCGEEnvData; 

CGIDB 1: TCGIDB; 

TablelNumber: TIntegerField; 

Table IName: TStringField; 

Query 1 Number: TIntegerField; 

QuerylName: TStringField; 
procedure FormCreate( Sender: TObject); 
procedure CGIDB 10nSendin^otField(currentRecord; TDataset; 
var s: OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

dflag: string; 



begin 

with CGIEnvDatal do begin 



340 



{Standard Header} 
webSiteINIFilename:====paramstr( 1 ); 
application.onException:=cgiEiTorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

send ('<HTML><HEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send ('</HEADxBODY bgcolor=FFFFEF>'); 



{Determine whether flag is valid} 
dflag:= getsmallfietd {'flag'); 
if (dflag = ' 1') then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Send Instructions} 

send(’<center>These are the current Keywords. <br>'); 

send(To DELETE a Keyword, simply select the Number next to the Keyword that you would 
liketoDELETE.<BR>’); 

{Retrieve current Keywords} 
with Query 1 do begin 

close; 

sql.clear; 

sql.add('Select*FROM Keyword '); 
sql.add('Order By Number*); 
open; 

if recordcount > 0 then begin 
Tablel.Open; 

CGIDB 1 .DrawTable; 
send('</center>’); 

Table 1. Close; 

end (if recordcount >0} 

else 

sendhdr ('2','There are no Keywords in the Database to Delete!'); 
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end; {with Queryl} 



{Delete all fields option) 

send(’<PxFORM ACTION="../cgi-win/KeyDel2.exe" METHOI>"POST">’); 
sendC<INPUT TYPE="hidden" Name="flag" Value=" !">’); 
send(’<INPUT TYPE="hidden" Name="DeleteAil" Value="Yes">'); 
send('<PxCENTERxiNPUT TYPE="submit" Value="**** Delete ALL the Keywords 
****"x/CENTERx/FORM>’); 

{HTML Footer) 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">’); 

send(’<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set) 

else begin {flag **incorrect**) 

send C<centerxH2>Asilomar Conference on Sisals, Systems, & Computers</H2x/center>’); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is’); 
send Cmaintained that includes your URL. You may be subject to civil and/or criminal ’); 
send (’prosecution for your actions.<BR>'); 



send (’<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=lefl alt="Asilomar facility">’); 

send (’Return to the <A HREF="http://13 1 . 120.20.70/Index.html">Asilomar’); 

send (’Conference On-line Submission Page</A>’); 

send (’</BODYx/HTML>’); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**) 

send (’</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal) 
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end; {FormCreate} 



procedure TFomil.CGIDB10nSendingHotField(currentRecord; TDataset; 
var s; OpenString); 
begin 

{Hotiink for single keyword edit} 

s;-<A HREF="../cgi-win/KeyDel2.exe?'+ curretttrecord.fieIdbyName('Number').AsString + 
+ currentrecord.FieldbyName('Number'). AsString + '</A>'; 
end; 
end. 
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unit Key_del2; 
interface 



Verification of Delete; KeyDel2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Tablel; TTable; 

TablelNumber: TIntegerField; 

Tablel Name: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 



var 

Forml: TForml; 



implementation 
{$R *.DFM} 



procedure TForml.FormCreate( Sender: TObject); 
var 

KeyNumber, (Number of the Keyword record} 

KeyName, {Name of the Keyword} 

dDeleteAli, {action flag - if set then delete all the Keywords} 

dflag: string; {valid program call} 



begin 



with CGIEnvDatal do begin 

webSiteINIFilename;=paramstr( 1 ); 
applicatioaonException:=cgiErrorHandler; 
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application. processMessages; 



createStdout; 

sendPrologue; 

{Standard Header} 

send ('<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send ('</HEADxBODY bgcolor=FFFFFF>’); 

{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 
if (dflag = '1') then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration‘QTH2x/center>'); 
sendhr; 



{Find Keyword to Delete} 

{ Get Held from search page } 
tty 

dDeleteAll;= getsmallfield CDeleteAll'); 
finally 

{Check to see if 'Delete all fields' is true} 

KeyNumber:= cgiQueiyString^; 
end; 

if getsmallfield CDeleteAll') o cginotfoimd then begin 

{Check to see if 'Delete all fields' is true} 
dDeleteAll:= getsmallfield (DeleteAll'); 

if dDeleteAll = 'Yes' then begin 

with Table 1 do begin 

sendhdr ('2', 'Are you sure you want to Delete ALL of the Keywords in the Database!'); 

send('<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxCENTERxINPUT TYPE=”submit" Value="CANCEL - Do NOT 
Delete"x/CENTERx/FORM>'); 
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send('<PxFORM ACTION="../cgi-win/KeyDel3.exe" METHOI>"POST">'); 
send('<INPUT TYPE="hidden" Name=''flag" Value='T’>’); 
send('<INPUT TYPE=’’hidden" NAME="keynumber" VALUE="delete">'); 
send(’<INPUT TYPE=”hidden" NAME="keyname" VALUE="delete’’>'); 
send(’<PxCENTERxlNPUT TYPE="submit" Value="*** YES - DELETE ALL 
Keywords in the Database! * * * "x/CEN 1 HRx/FORM>'); 
end; {with Tablel} 

end; (if dDeleteAli} 

end {if cginotfound} 

else begin {Delete one record} 

with Tablel do begin 

{Prepare the table} 

open; 

first; 

{find the correct keyword} 

if KeyNumber o fieldbynameCNumber').asstring then begin 

{move to the next field until we find the correct one) 
repeat 

next; 

until KeyNumber = fieldbynameCNumber').asstring; 
end; (if keyword} 

{Get the Keyword Name} 

KeyName:= fieldbynameCName').asstring; 
end; (with Tablel} 

{Send Keyword edit FORM to HTML page} 

send('Are you sure you want to DELETE the keyword <B>' +KeyName+ '.</BxBR>'); 

send(’<PxFORM ACTION="../cgi-win/KeyDel3.exe" METHOD="POST">’); 
send('<INPLnr TYPE="hidden" Name="flag" Value='T">'); 
send(’<INPUT TYPE="hidden" NAME="keynumber" VALL(E="' +KeyNumbeH- 
send(’<INPUT TYPE=’’hidden” NAME="keyname" VALUE='" +KeyName+ 
send('<PxCENTERxINPUT TYPE="submit’' Value="Yes, DELETE this 
Keyword"x/CENTERx/FORM>’); 
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send(’<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD='TOST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=‘T’>’); 
send(’<PxCENTERxINPUT TYPE="submit" Value="CANCEL - Do NOT 
Delete"x/CENTERx/FORM>’); 
end; {Delete one record} 

{Standard Footer} 
sendhr; 

send('<PxFORM ACTION=’’../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag'' Value='T’>’); 

send('<PxCENTERxINPUT TYPE="submit" Value=''Retum to the System Admin 
Options page"x/CENTERx/FORM>’); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2></center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions, <BR>'); 



send C<PxhrxpxlMG SRC=".,/prototype/asil2b0.gif " align=left aIt="Asilomar facility">'); 

send CRetum to the <A HREF="http://131.120.20.70/Index.htmr>Asilomar’); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 

end; {Formcreate} 

end. {Application} 
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Deletion Confirmation; KeyDel3.exe 



unit Key_del3; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Keywords: TTable; 

CGEEnvDatal : TCGDEnvData; 

CGIDB 1: TCGIDB; 

KeywordsNumber TIntegerField; 

KeywordsName: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
var 

dKeyNumber, dKeyword; string; 

dflag; string; {valid program call} 



begin 

with CGDEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

{Standard Header} 

send ('<HTMLxHEAD>'); 

SendTitie('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>’); 



{Determine whether flag is valid} 
dflag;= getsmallfield ('flag'); 
if (dflag = ' 1 ') then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{ Get fleld from search page } 
dkeyword:= getsmallfield ('keyname'); 
dkeynumber;= getsmallfield ('keynumber'); 



if dkeyword = 'delete' then begin 

with Keywords do begin 

open; 

first; 

while not EOF do 
delete; 

end; {with Keywords} 

sendhdr ('2', 'ALL Keywords were deleted!'); 
end {ifdkeyword = delete} 

else begin {Delete one keyword} 

{Delete Keyword from KEYWORD Table} 



with Keywords do begin 
{ Move to proper record} 
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open; 

first; 

while fieldbyName('Number').asstring o dkeynumber do 
next; 

{Delete record } 

edit; 

delete; 

close; 

end; {with Keywords} 



{Send the Thankyou page } 

send C<P>The Keyword <B> ' + dkeyword + '</B> has been DELETED. </CENTERxBR>'); 
send('<PxFORM ACTION=’'../cgi-win/KeyDel.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden'' Name="flag" Value='T">'); 
send('<PxCEN I'EKxINPUT TYPE="submit" Value="DELETE more 
Keywords"x/CENTERx/FORM>’); 

end; {else Delete one keyword} 

send(’<PxFORM ACTION="../cgi-win/Keywords.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T ">'); 
send('<PxCENTERxlNPUT TYPE=”submit" Value="Edit more 
Keywords"></CENTER></FORM>'); 

{Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD=''POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value=’T ">'); 

send('<PxCENTERxlNPUT TYPE='*submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send ('<centerxH2>Your password was <strong>not accepted! !</strongX/H2x/center>'); 

send C<P>Please ensure that you are authorized to access tiiis information.'); 

send C<P>If you made an error, then please <A HREF=''../prototype/admin20.htm''>try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
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send (’prosecution for your actions.<BR>'); 



send ('<PxhrxPxIMG SRC="../prototype/asiI2b0.gif " align=left alt="Asilomar facility">'); 
send CRetum to the <A HREF="http;//131. 120.20. 70/Index.html">Asilomar'); 
send ('Conference On-line Submission Page</A>'); 

end; {flag **incorrect**} 

send ('</BODYx/HTMI>’); 
closeStdout; 
closeApp( application ); 
end; {with CGIEiivDatal} 

end; {Formcreate} 

end. {Application} 
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unit Invite_; 
interface 



Display Titles: Invite.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Articles: TTable; 

CGIEnvDatal: TCGDEnvData; 

CGEDBl: TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dbtitle, dbPaper Number: string; 

dflag: string; (valid program call} 

implementation 

($R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramsti( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send (’<HTMLxHEAD>’); 
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SendTitle('Asilomax Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>’); 

{Determine whether flag is valid] 

dflag~ getsmallfield ('flag'); 

if (dflag = ' I ’) then begin (flag is set] 

send('<center><H2>Asilomar Conference System Administration</H2x/center>’); 
sendhr; 



{Send Instrnctions} 

send('<P>Articles must be marked as Invited so they will not be included in the Review 
process. '); 

send('<PxUI><LI>To mark Articles as Invited, select the checkbox next to the 
Title.<BR>’); 

send('<LI>To change Articles to NOT Invited, change the action in the drop-down box to 
"NOT Invited" and then ’); 

send('select the checkbox next to the Title. </UL>’); 

send('<P>Note: it is not necessary to mark an article NOT Invited unless it was previously 
marked Invited '); 

send('and it needs to be changed When printing Article information for review, only Articles 
marked Invited are '); 

send('ignored. Articles that are not marked <B>or</B> are marked NOT Invited are printed 
for review.'); 
sendhr; 

(Bui)d Form] 

send('<FORM ACTION="../cgi-win/Invite2.exe" METHOD="GET">’); 

(Build Pull-Down menu for choices] 

send('<PxcenterxSELECTNAME=" Action ">'); 
send('<OPTION> Invited'); 
send('<OPTION> NOT Invited’); 

send('</SELECTx/centerxp>’); 

{Build the check boxes of Titles] 
with Articles do begin 
open; 
first; 

While not Articles.EOF do begin 

dbtitle:= fieldbyname(T itle').asstring; 
dbPaperNumber.- fieldbynameCPaper_Number').asstring; 
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send C<INPUT TYPE="checkbox" NAME="T" Value="' +dbPaper_Number+ '"># ’ 
+dbPaper_Number+ ' ' +dbtitle^- '<BR>'); 
next; 

end; {while not EOF} 

close; 

end; {with articles do} 

send('<P><CENTER><INPUT TYPE="submit" Value=" Submit these articles ”xP> '); 
send('<INPUT TYPE="teset" VALUE="Reset values’’x/CENTERx/FORM>'); 



sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD=TOST">'); 
send(’<INPUTTYPE="hidden" Name="flag" Value='T'>’); 
send('<PxCENTERxlNPUT TYPE=" submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end {flag is set} 

else begin {flag **incorrect**} 

send (’<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr, 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2xycenter>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 

send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF- 'http://131. 120.20. 70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send ('</BODYx/HTMI>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGlEnvDatal} 
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end; {FormCreate} 



end. 
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unit Invite_2; 
interface 



Invite Titles; lnvite2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDBl; TCGIDB; 

DataSourcel; TDataSource; 

Articles: TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

i, j, dTitle, MySelector, dbPaper Number. integer; 

dAction : string; 

dTitlein: string; 

dString, AssignString: string; 

Titlelist : TStringList; 

function TitleToInt ( S: string) linteger; 



implementation 
{$R *.DFM} 

^ He * ^ ife ttcifc 4c 4: 4: ♦ 4: 4c lie 4c * 3 ): He 4: 1 

function TitleToInt ( S: string) ; integer; 

{Thb function b necessary because the string value of dTitle has several spaces in 
it and the strtoint function cannot handle the conversion properly} 
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var 

temp; string; {temporary variable to build new string into} 
j: integer; {Counting Variable to keep track of how many characters are in the 
number} 

begin 

{set the counted to zero} 

j:= 0; 

{count the characters} 
repeat 

until SD+1]=”; 

{Copy the valid number characters over to temp} 

temp := Copy(S, 1, j); 

{Convert the temp string to an integer value} 

TitleToInt ;= strtoint (temp); 

end; {NoSpaces} 

^ :|u|e a|c :|c 3(c 4c ]|e i|c ie :fcf( 4c :fn|e :|c 4nlc 4c ♦ ♦ 4: ♦ ♦ ♦ * ♦ * « * He I 

procedure TForml.formcreate( Sender; TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:==paramstr( 1 ); 

application.onException;=cgiEjTorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor-FFFFFF>'); 

send('<center><H2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Get query string from Assign.exe} 

Titlelist;= TStringlist. create; {list of titles to assign to the session) 

AssignString;= CGIQueryString^; 
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j;= 0; {The counter for the individual strings within the QueryString) 



for i 7 to Length(AssignString) do {The counter for going through the AssignString 
eight is the first valuable character (the beginning of the Session Neumonic) ) 

if AssignString[i] o then begin {the character is valuable} 
dStringjj] := AssignString[i]; 

end {if AssignString[i] o then} 
else begin {The & signifies the end of the string} 

TitleList.add (dString); 

dString;= ’ {Blank out the old values} 

j;=0; {reset the string counter} 

i:= i+ 1 ; {Skip over the text "T="} 

end; {else} 

TitleList add (dString); {This is to put the last string into the string list. It is 
necessary because there is no & at the end} 

{Place the Session Neumonic into each Paper_Number passed} 

{The first item in the Title List is the Session Neumonic} 
dAction;= TitleList(0]; 

if (dAction[l] = T) then MySelector := 1 ; 
if (dAction[l] = *N') then MySelector := 2; 



case MySelector of 
1 : begin {Invite only} 

{Send confirmation} 

sendhdr ('3', '<P>The following Articles were INVITED:<brxcenter>'); 

{Invite the articles with the selected Paper_Numbers} 
with Articles do begin 

open; {Prepare the Table for use} 

for i:= 1 to TitleList. count- 1 do begin {The rest of the items are Paper_Numbers} 

{Get the next title number} 
dTitlein;= TitleList[i]; 

{Convert the Title string to an integer value} 
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dTitle:= TitleToInt (dTitlein); 



{Move to proper record} 

first; {go back to the first record before every new search} 
while fieldbyname(Taper_Number').asinteger o dTitle do 
next; 

{Invite the Article} 

edit; 

Setfields ([nil, nil, T*]); {The remaining fields are ignored} 
post; 

{Send title name} 

send('# ' +fieldbyname(Paper_Number').asstring+ ' ' +fieldbyname(Title').asstring+ 

’<BR>’); 

end; {for} 

close; { the table} 

end; {with Articles} 
send('</center>'); 
end; {Accept only} 

2 : begin {NOT Invited} 

{Send confirmation} 

sendhdr ('3', '<P>The following Articles were marked as NOT 
INVITED:<brxcenter>'); 

{Invite the articles with the selected Paper_Nombers} 
with Articles do begin 

open; {Prepare the Table for use} 



for i;= 1 to TitleList.count-1 do begin {The rest of the items are Paper_Numbers} 

{Get the next title number} 
dTitlein:= TitleList[i]; 

{Convert the Title string to an integer valne} 
dTitle;= TitleToInt (dTitlein); 

{Move to proper record} 
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first; {go back to the first record before every new search} 
while fieldbyname(Paper_Number').asinteger o dTitle do 
next; 

{Invite the Article} 
edit; 

Setfields ([nil, nil, 'N']); {The remaining fields are ignored} 
post; 

{Send title name} 

sendC# ' +fieldbyname(Paper_Number').asstring+ ' ' +fieldbyname('Title').asstring+ 

'<BR>'); 



end; {for} 

close; { the table} 

end; {with Articles} 

end; {Invite AND NOT Invite} 

else begin {selector not working} 

send('Selector did not work<BR>'); 
sendC Action was ' +dAction+ 
end; {else} 

end; {case} 



{Send Footer} 

send('<PxFORM ACTION="../cgi-win/Invite.exe" METHOD="POST">'); 
send('<CENTERxINPUT TYPE="hidden" Name="flag" Value=’T’>’); 
send('<PxINPUT TYPE="submit" Value="Invite more Articles"x/FORMxp> •); 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe'’ METHOD="POST''>'); 
send('<IlSIPUT TYPE="hidden" Name="flag" Value='T’>'); 

send(’<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 



360 



end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 
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unit Choose_; 
interface 



Select Articles: Choose.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQueiy; 

Articles: liable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

dbtitle, dbPaper Number: string; 

dflag: string; (valid program call} 

implementation 

($R ♦.DFM} 

procedure TForml. FormCreate(Sender: TObject); 
begin 



with CGIEnvDatal do begin 

webSiteINIFilename;=pm’amstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 



(Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 

if (dflag = T) then begin (flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

(Build Form} 

send('<PxFORM ACTION="../cgi-win/Choose2.exe" METHOD="GET">'); 

(build Pull-Down menu for choices} 

send('There are four methods of accepting or rejecting Articles:<BRxul>'); 
send('<LI> Accept the selected articles only, do not modify any other Articles'); 
send('<LI> Accept the selected articles AND Reject all others'); 
send('<LI>Reject the selected articles only, do not modify any other Articles'); 
send{'<LI>Reject the selected articles AND Accept all others<ul>'); 

send('<PxcenterxSELECTNAME="Action">'); 
send('<OPTION> ACCEPT); 
send('<OPTION> ACCEPTthenRejecf); 
send('<OPTION> REJECT); 
send('<OPTION> REJECTthenAccept'); 
send('</SELECTx/centerxP>'); 

(Build the check boxes of Titles} 
with Articles do begin 
open; 
first; 

While not Articles.EOF do begin 

dbtitle:= fieldbyname('T itle'). asstring; 
dbPaper_Number:= fieldbyname(Taper_Number'). asstring; 
send C<INPUT TYPE="checkbox" NAME="T" Value='" +dbPaper_Number+ '"> ' 
+dbtitle+ ' <BR>'); 
next; 

end; (while not EOF} 
close; 

end; (with articles do} 



363 



sendC<PxCENTERxINPUT TYPE="submit" Value=" Accept / Reject these articles "xp> 

send(’<INPUT TYPE=’’reset" VALUE=’’Reset values"x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOI>TOST’’>'); 
send(’<INPUT TYPE=’’hidden’’ Name="flag" VaJue=’T’>’); 
send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
endb} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send Cmaintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxpxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 
send CRetum to the <A HREF="http;//13 1. 120.20.70/Index.html">Asilomar'); 
send ('Conference On-line Submission Page</A>'); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 

end; {FormCreate} 

end. 
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unit Choose_2; 
interface 



Accept / Reject Articles: Choose2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGDEnvDatal: TCGIEnvData; 

CGIDB 1 : TCGroB; 

DataSourcel: TDataSource; 

Articles: TTable; 

procedure FormCreate(Sender: TObject); 
private 

( Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

i, j, dTitle, MySelector, dbPaper Number: integer; 

dAction : string; 

dTitlein: string; 

dString, Assi^tring: string; 

Titlelist : TStrin^ist; 

function TitleTolnt ( S: string) :integer. 



imfJementation 
{$R *.DFM) 

1 3|c 4e ifciic 3fc 4c }|c ]fo)( ?ic ^ 9fc4ci{( 4c 9|C ^ 4c j|( 4i 4; Jiciinioiuic % % >{c :(c ^ 

function TitleTolnt ( S: string) :integer; 

{This function is necessary because the string value of dTitle has several spaces in 
it and the strtoint function cannot handle the conversion properly} 
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var 

temp; string; (temporary variable to build new string into} 
j; integer; (Counting Variable to keep track of how many characters are in the 
number} 

begin 

(set the counter to zero} 

j:=0; 

(count the characters} 
repeat 
j:=j+l; 

until S0+1] = "; 

(Copy the valid number characters over to temp} 

temp ;= Copy(S, IJ); 

(Convert the temp string to an integer value} 

TitleToInt := strtoint (temp); 

end; (NoSpaces} 

procedure TForml.formcreate(Sender: TObject); 
begin 

with CGEEnvDatal do begin 

webSiteINIFilename:=paramstr(l ); 

application.onException;=cgiErrorHandler; 

application. processMessages; 

createStdout; 

sendPrologue; 

send ('<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEAD><BODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

(Get query string from Assign,exe} 

Titlelist;= TStringlistcreate; (list of titles to assign to the session} 

AssignString;= CGIQueryString^; 
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j:= 0; {The counter for the individual strings within the QueryString} 

for i ;= 7 to Length(AssignString) do (The counter for going through the AssignString - 
eight is the first valuable character (the beginning of the Session Neumonic) } 

if AssignString[i] o then begin {the character is valuable} 

dStringUl := AssignString[i]; 

end {if AssignString[i] o then} 
else begin {The & signifies the end of the string} 

TitleListadd (dString); 

dString:= ' {Blank out the old values} 

j:=0; {reset the string counter} 

i:= i+ 1 ; {Skip over the text "T=”} 

end; {else} 

TitleList.add (dString); {This is to put the last string into the string list. It is 
necessary because there is no & at the end} 

{Place the Session Neumonic into each Paper_Number passed} 

{The first item in the Title List is the Session Neumonic) 
dAction;= TitIeList[0]; 

if (dAction[l]- A') and (dAction[7] o then MySelector ;= 1; 
if (dAction[l]='A’) and (dAction[7] = then MySelector := 2; 
if (dAction[l]='R') and (dAction[7] o then MySelector := 3; 
if (dAction[l]-R') and (dAction[7] = then MySelector ;= 4; 



case MySelector of 
1 : begin {Accept only} 

{Send confirmation} 

sendhdr ('3', '<P>The following Articles were ACCEPTED:<brxcenter>'); 

{accept the articles with the selected Paper_Numbers} 
with Articles do begin 

open; {Prepare the Table for use} 

for i;= 1 to TitleList.count-1 do begin {The rest of the items are Paper_Numbers} 

{Get the next title number} 

dTitlein:= TitleList[i]; 
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{Convert the Title string to an integer value) 
dTitle:= TitleToInt (dTitlein); 

{Move to proper record) 

first; {go back to the first record before every new search) 
while fieldbyname('Paper_Number').asinteger o dTitle do 
next; 

{Insert the Session) 
edit; 

Setfields ({nil, nil, nil, 'Y]); {The remaining fields are ignored) 
post; 

{Send title name) 

send(" +fieldbyname('Title').asstringf ’<BR>’); 

end; {for) 

close; { the table) 

end; {with Articles) 
send('</center>'); 
end; {Accept only) 

2 ; begin {Accept and Reject) 

{Send confirmation) 

sendhdr ('3', '<P>The following Articles were ACCEPTED;<brxcenter>'); 

{accept the articles with the selected Paper_Numbers) 
with Articles do begin 

open; {Prepare the Table for use) 

{Set all *Not Invited* Articles to ''rejected*') 
while not EOF do begin 

if fieldbyname('Invited').asstring o Y then begin 
edit; 

Setfields ([nil, nil, nil, ’N’]); {The remaining fields are ignored) 
post; 

end; {If not invited) 
next; 
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end; {While} 

for i;= 1 to TitleList. count- 1 do begin {The rest of the items are Paper_Numbers} 

{Get the next title number} 
dTitlein:= TitleList[i]; 

{Convert the Title string to an integer value} 
dTitle:= TitkToInt (dTitlein); 

{Move to proper record} 

first; {go back to the first record before every new search} 
while fieIdbyname(Paper_Number').asinteger o dTitle do 
next; 

{Insert the Session} 

edit; 

Setfields ([nil, nil, nil, 'Y’]); {The remaining fields are ignored} 
post; 

{Send title name} 

send(” +fieldbyname(Title').asstring+ ’<BR>'); 
end; {for} 
close; { the table} 
end; {with Articles} 

sendhdr(’3’, '<P>A11 OTHER Articles were Rejected!</centerxBRxP>’); 
end; {Accept and Reject} 

3 : begin {’Reject only} 

{Send confirmation} 

sendhdr ('3', *<P>The following Articles were REJECTED:<brxcenter>’); 

{The rest of the items are Paper_Numbers} 
with Articles do begin 

open; {Prepare the Table for use} 
for i:= 1 to TitleList. count- 1 do begin 

{Get the next title number} 
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dTitlein;= TitleListp]; 



{Convert the Title string to an integer value} 
dTitle:= TitleToInt (dTitlein); 

{Move to proper record} 

first; {go back to the first record before every new search} 
while fieldbyname(Paper_Number').asinteger o dTitle do 
next; 

{Insert the Session} 
edit; 

Setfields ([nil, nil, nil, 'N']); {The remaining fields are ignored} 
post; 

{Send title name} 

send(" +fieIdbyname(Title’).asstring+ ’<BR>'); 

end; {for} 

close; { the table} 
send('</center>’); 

end; {with Articles} 

end; {Reject only} 

4: begin ('Reject and accept’} 

{Send confirmation} 

sendhdr ('3', '<P>The following Articles were REJECTED:<brxcenter>'); 

{accept the articles with the selected Paper_Numbers} 
with Articles do begin 

open; {Prepare the Table for use} 

{Set all *Not Invited* Articles to "accepted”} 
while not EOF do begin 

if fieldbyname ('lnvited').asstring o 'Y then begin 
edit; 

Setfields ([nil, nil, nil, 'Y']); {The remaining fields are ignored} 
post; 
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end; {If not invited} 



next; 

end; {While} 

for i:= 1 to TitleList. count- 1 do begin {The rest of the items are Paper_Numbers} 

{Get the next title number} 
dTitlein:= TitieList[i]; 

{Convert the Title string to an integer value} 
dTitle:= TitleToInt (dTitlein); 

{Move to proper record} 

first; {go back to the first record before every new search} 
while fieldbyname(Paper_Number').asinteger o dTitle do 
next; 

{Insert the Session} 
edit; 

Setfields ({nil, nil, nil, 'N’]); {The remaining fields are ignored} 
post; 

{Send title name} 

send(" +fieldbyname('Title').asstring+ '<BR>'); 
end; {for} 
close; { the table} 
end; {with Articles} 

sendhdr('3’, '<P>A11 OTHER Articles were Accepted!</centeTxBRxP>'); 

end; {Reject and accept} 
else begin {selector not working} 

send('Selector did not work<BR>'); 
send('Action was ' +dAction+ 
end; {else} 

end; {case} 



{Send Footer} 
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{Button to Accept/Reject more Articles} 

send('<PxFORM ACTION="../cgi-win/Choose.exe" METHOD="POST">’); 
send('<CENTERxlNPUT TYPE="hidden" Name="flag" Value=’T’>'); 
send('<PxlNPUT TYPE="submit" Value=" Accept/Reject more Articles"x/FORMxp> '); 

(Button to move to Assign Articles to Sessions) 

send('<PxFORM ACTION="../cgi-win/Assign.exe" METHOD=TOST">'); 
send('<INPUT NAME='’flag" TYPE="hidden" Value="r>'); 
send('<PxlNPUT TYPE="submit" Value="Now Assign the Articles to Sessions " 
Size="30"x/centerx/FORM>’); 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T’>'); 
send('<PxCENTERxINPUT TYPE="submit" Value-'Retum to the System Admin 
Options page"><yCEN'l'ER><yFORM></BODY></HTML>'); 
closeStdout; 

closeApp( application ); 

end; (with cgiEnvDatal do) 

end; {FormCreate} 

end. 
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Assign Articles: D_Assign.exe 



unit D_assign; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

Sessions: TTable; 

Articles: TTable; 

SessionsNumber: TIntegerField; 

SessionsNeumonic: TStringField; 

QuerylNumber: TIntegerField; 

Query INeumonic: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dbtitle, dbPaper Number: string; 

dflag: string; {valid program call} 

implementation 

{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 



with CGIEnvDatal do begin 
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webSiteINIFilename;=paramstr( 1 ); 

appIication.onException;=cgiErrorHandIer; 

application. processMessages; 

createStdout; 

sendPrologue; 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send (’</TffiADxBODY bgcolor=FFFFFF>'); 

{Determine whether flag is valid} 

dflag:= getsmallfield ('flag'); 
if (dflag = T) then begin (flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Build Form} 

send('<PxFORM ACTION="../cgi-win/Assign2.exe" METH01>"GET">'); 



{Pull Sessions from SESSION Table } 
with Query 1 do begin 
close; 
sql.clear; 

sql.add('Select * FROM Session '); 
open; 

{Move records from query result to Session PulFdown menu} 

Sessions.open; 

Sessions, first; 

send('<PxB>Assign the following Titles to Session; </BxSELECT 
NAME="Session">'); 

while not Sessions.EOF do begin 

send('<OPTION> ' +Sessions.fieldByNameCNeumonic').Asstring+ "); 
sessions.next; 

end; {for all records in the query result} 
send('</SELECTxp>’); 



end; {with query 1} 
with articles do begin 
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open; 

first; 

While not Articles.EOF do begin 

dbtitle:= fieldbyname(Title').asstring; 
dbPaper_Niunber;= fieldbyname('Paper_Number').asstring; 

send C<INPUT TYPE="checkbox" NAME="Title" Value="' +dbPaper_Number+ ’"> ' 
+dbtitle+ ' <BR>'); 
next; 

end; {while not EOF} 
close; 

end; {with articles do} 

send('<PxCENTERxINPUT TYPE="submit" Value=" Assign the selected articles to the 
specified Session"xP> '); 

send(’<INPUT TYPE="reset" VALUE="Reset values"x/CENTERx/FORM>'); 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">’); 

send('<PxCENTERxlNPUT TYPE=" submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send (’</BODYxOTML>’); 
closeStdout; 
closeApp( application ); 

end {flag is set} 

else begin {flag **incorrect**} 

send (’<centerxH2>Asilomar Conference on Signals, Systems, & Computers<yH2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongX/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF=" ../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF="http://13 1. 120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 
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end; {flag **incorrect**} 



end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. {Application} 
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unit Assign_2; 
interface 



Order Articles: Assign2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

Articles: TTable; 

DataSourcel: TDataSource; 

CGDEnvDatal: TCGDEnvData; 

CGIDBl: TCGIDB; 

procedure formcreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

i, j, dTitle: integer; 

dsession : string; 
dTitlein, dTitlestr: string; 
dString, AssignString: string; 
dnum: string; 

Titlelist : TStringList; 

function TitleToInt ( S: string) :integer; 

implementation 

($R *.DFM} 

I :|c:|c:ic3ie4c:ic4c4cafe9ic3ic3((4c3|c4c:ic4c:ic:(c:|c:ic:(c:icj|c:|c4c4c:ic:ic:ic4c:(c:ic:ic:ic:ic9ic:ic4c^ 

function TitleToInt ( S: string) :integer; 

{This function is necessary because the string value of dTitle has several spaces in 
it and the strtoint function cannot handle the conversion properly} 
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var 

temp; string; {temporary variable to build new string into} 
j; integer; (Counting Variable to keep track of how many characters are in the 
number} 

begin 

(set the counter to zero} 

j;=0; 

{count the characters} 
repeat 
j:=j+l; 

until S[j+13 = "; 

{Copy the valid number characters over to temp} 

temp :=Copy(S, IJ); 

{Convert the temp string to an integer value} 

TitleToInt ;= strtoint (temp); 

end; {TitleToInt} 

I 4; 3k ** * 4c * * * * * * 4; 3k 3lt * * * * 4c * ak ^ * 3): 3|c 4c 3(e4c ak * 3fc I 

procedure TForml.formcreate(Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFiIename:=paramstr( 1 ); 

appIication.onException:=cgiEirorHandler; 

application. processMessages; 

createStdout; 

sendPrologue; 

send C<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send ('</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{Get query string from Assign.exe} 

Titlelist:= TStringIist.create; {list of titles to assign to the session} 
AssignString:= CGIQueryString^; 
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j:= 0; {The counter for the individual strings within the QueryString} 



for i := 8 to Length(AssignString) do {The counter for going through the AssignString - 
eight is the first valuable character (the beginning of the Session Neumonic) } 

if AssignString[i] o then begin {the character is valuable} 

dStringjj] ;= AssignString[i]; 

end {if AssignString[i] o then} 
else begin {The & signifies the end of the string} 

TitleList.add (dString); 

dString— ' {Blank out the old values} 

j :=0; {reset the string counter} 

i:= i+5; {Skip over the text "title="} 

end; {else} 

TitleListadd (dString); {This is to put the last string into the string list It is 
necessary because there is no & at the end} 

{Place the Session Nenmonic into each Paper_Number passed} 

{The first item in the Title List is the Session Neumonic} 

dSession;= TitleList[0]; 

{Send confirmation} 

send C<P>The following Articles were placed in Session <B>' +dSession+ '</B>. '); 
send (Please enter the order number in the box next to the Title. <BRxB>Note:</B> Ensure 
that a number is entered. The '); 

send (’Order number will <B>always</B> be updated with this entry. '); 
send (’If it is left blank, the order number will be blank.<P>'); 

{Start the FORM that will assign the order number within the session} 
send('<PxFORM ACTION="../cgi-win/Assign3.exe" METHOD="GET">'); 
sendC<INPUT TYPE="hidden" Name="Sess" Value='" +dSession+ 



{The rest of the items are Paper Numbers} 
with Articles do begin 

open; {Prepare the Table for use} 
for i:= 1 to TitleList.count-1 do begin 

{Get the next title number} 
dTitlein;= TitleList[i]; 
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{Convert the Title string to an integer value} 
dTitle;= TitleToInt (dTitlein); 

{Move to proper record} 

first; {go back to the first record before every new search} 
while fieldbyname(’Paper_Number').asinteger o dTitle do 
next; 

{Insert the Session} 
edit; 

Setfields ([nil, nil, nil, nil, nil, dSession]); {The remaining fields are ignored} 
post; 

{Convert counting variable "i” into string to send to HTML page} 
dnum:= inttostr(i); 

{Send title name} 

send('<INPUT T’YPE="text" Name="' +fieldbyname(Paper_Number').asstring+ 
SIZE="2" VALUE="’ +dnum+ '"> ’); 

send(" +fieldbyname('Title').asstring+ '<BR>'); 

end; {for} 

close; { the table} 

end; {with Articles} 



send('<PxCENTERxINPUT TYPE="submit" Value=" Assign the Articles in this 
Order"x/CENTERx/FORMxP> ’); 

{Send Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe” METHOD="POST”>’); 
sendC<INPUT TYPE="hidden" Name="flag" Value="l 

send(’<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page”X/CENTERx/FORM>'); 
send (’</BODYx/HTML>’); 

closeStdout; 
closeApp( application ); 
end; {with cgiEnvDatal do} 
end; {FormCreate} 

end. {Application} 
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unit Assign_3; 
interface 



Confirmation; Assign3.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

Articles; TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations ) 
end; 

var 

Forml; TForml; 

i, j, dTitle; integer; 

dsession ; string; 
dTitlein, dTitlestr; string; 
dString, AssignString; string; 
dnum; string; 

Titlelist ; TStringList; 

function TitleToInt ( S; string) ;integer; 

implementation 

{$R *.DFM) 

1 3t: * 3f: 3): 3f: 4: 4c ^ * 4: * * 3t: * 4: 3|c 3}: 3}: * 3f: 3f: af; af; at: 3f: at: * * * 3f; 3f: }(: 3|c 3f: 3f; 4c j 

function TitleToInt ( S; string) .integer; 

(This function is necessary because the string value of dTitle has several spaces in 
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it and the strtoint function cannot handle the conversion properly} 



var 

temp: string; {temporary variable to build new string into} 
j: integer; {Counting Variable to keep track of how many characters are in the 
number} 

begin 

{set the counter to zero} 

j:=0; 

{count the characters} 
repeat 

until SG+1]=”; 

{Copy the valid number characters over to temp} 

temp := Copy(S, IJ); 

{Convert the temp string to an integer value} 

TitleToInt := strtoint (temp); 

end; {TitleToInt} 

^ 3k * 3k 3k * 3k 3k 3k 3|C 3k 3k 3k 3k 3k 3k * * 9k * 3k 3k * 9k 4: j 

procedure TForml.formcreate(Sender; TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

app!ication.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Get query string from Assign.exe} 

Titlelist:= TStringlist.create; {list of titles to assign to the session} 
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AssignString;= CGIQueryString^; 
dString;= ' {Initialize as Blank } 

j;= 1 ; (The counter for the individual strings within the QueryString} 

for i ;= 6 to Length(AssignString) do {The counter for going through the AssignString - 
eight is the first valuable character (the beginning of the Session Neumonic) } 

if (AssignStringp] o ’&’) and (AssignString[i] o ’=') then begin {the character is 
valuable} 

dStringlJ] := AssignString[i]; 
j:=j+l; 

end {if AssignString[i] o ’&* then} 
else begin {The & signifies the end of the string} 

TitleList.add (dString); 

dString:= ’ {Blank out the old values} 

j ;= 1 ; { reset the string counter} 

end; {else} 

TitleList.add (dString); {This is to put the last string into the string list It is 
necessary because there is no & at the end} 



{Place the Session Neumonic into each Paper_Number passed} 
{Note: The string list consists of the following components - 

[0] session # 

[1] first paper-number 

[2] first paper OrderInSession 

[3] second paper-number 

[4] second paper OrderInSession 



This is important to understand when interpreting the "for" loop!} 

{The first item in the Title List is the Session Neumonic} 
dSession;= TitleList[0]; 

{Send confirmation} 

send (’<P>The following Articles have been placed in Session <B>’ +dSession+ '</B> in the 
order indicated. The Session '); 

send ('and the Orders may be changed at any time by repeating the process of Assigning an 
Article to a Session. <P>'); 
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send C<pre>Order Title<prexBR>'); 

{The rest of the items are (Paper_Number and OrderlnSession) pairs} 
with Articles do begin 

open; {Prepare the Table for use} 
for i:= 1 to TitleList. count- 1 do begin 

{Get the next Paper_Number} 
dTitlein;= TitleList[i]; 

{Convert the Paper_Number string to an integer value} 
dTitle:= TitleToInt (dTitlein); 

{Move to proper record} 

first; {go back to the first record before every new search} 
while fieldbyname(Paper_Number').asinteger o dTitle do 
next; 



{******** Increment "i" to get to the OrderlnSession number *********} 

i:=i+l; 

{Insert the Session} 
edit; 

Setfields ([nil, nil, nil, nil, nil, dSession, TitleList[i]]); {The remaining fields are 
ignored} 

post; 

{Send title name} 

send(" +TitleList[i]+ ’ ' +fieldbyname(Title').asstring+ '<BR>'); 
end; {for} 
close; { the table} 
end; {with Articles} 

send('<PxFORM ACTION=’’../cgi-win/Assign.exe" METHOD="POST’’>'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">’); 
send('<PxCENTERxINPUT TYPE-'submit" Value=" Assign more 
Articles"x/CENTERx/FORMxP> ’); 

send('<PxFORM ACTION="../cgi-win/Times.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T’>’); 



384 



send('<PxCENTERxINPUT TYPE="submit" Value="Assign Presentation Times to 
ArticIes"x/CENTERx/FORMxP> ’); 

{Send Footer} 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="nag" Value='T 

send('<PxCENTERxINPUT TYPE="submit" VaIue="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 
end; {FormC reate} 
end. {Application} 
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unit Timel ; 
interface 



Choose Session: Timel.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Sessions: TTable; 

Query 1: TQueiy; 

procedure FormCreate(Sender: TObject); 
procedure CGIDB lSendingHotField(currentRecord: TDataset; 
var s: OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
dflag: string; 

implementation 

{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 

with CGIEnvDatal do begin 

{Standard Header} 
webSiteINIFilename:=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application.processMessages; 

createStdout; 
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sendPrologue; 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 



{Determine whether flag is valid} 
dflag.- getsmallfield ('flag'); 
if (dflag = ' 1 ') then begin {flag is set} 

send('<centetxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{send instruction;} 

send('<center>These are the current Session Neumonics.<br>'); 

send(To enter Presentation Times for Articles within a Session, simply click on the Session 
Neumonic.<BR>'); 



{Retrieve current Session Information} 
with Query 1 do begin 

close; 
sql. clear; 

sql.add('Select*FROM Session '); 
open; 

if recordcoimt > 0 then begin 
Sessions.Open; 

CGIDB 1 .DrawTable; 
send('</center>'); 

Sessions.Close; 

end {if recordcount > 0} 

else 

sendhdr ('2','There are no Sessions in the Database!'); 
end; {with Queryl } 



{Standard Footer} 
sendhr; 
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send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value='T’>’); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end (flag is set} 

else begin (flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http;//13 1 . 120.20.70/Index. html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; (flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; (with CGIEnvDatal} 



end; (FormCreate} 



procedure TForml.CGIDBlSendingHotField(currentRecord: TDataset; 

var s: OpenString); 
begin 

(Hotlink for single session edit} 

s:='<A HREF="../cgi-win/Times2.exe?'+ currentrecord.fieldbyName('Number‘).AsString + '">' 
+ currentrecord.FieldbyNameCNeumonic').AsString + '</A>'; 

end; 
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end. 
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unit Times_2; 
interface 



Assign Times: Times2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

Sessions: TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

Articles: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

ArticlesInSessionList: TStringList; 

OrderInSessionList: TStringList; 

ArticlesInOrderList: TStringList; 

nextsession: string; 

SessionNumber, 

Session, 

dTitle, 

dbPaper_Number, 

dbtitle, 

dbOrderInSession, 
dbPresentationTime: string; 

ij, K 

order, 

dTitleint : integer; 
implementation 
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($R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFiIename;=paramstr( 1 ); 

appIication.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

(Standard Header) 
send C<HTMLxHEAD>’); 

SendTitle(’Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBOD Y bgcolor=FFFFFF>'); 

send(’<centerxH2>Asilomar Conference System Administration</H2x/center>’); 
sendhr; 



(Find Session to edit) 

{ Get Held from search page ) 

SessionNumber:= cgiQueryString^; 

(Find Number in SESSIONS Table) 
with Sessions do begin 

(Prepare the table) 

open; 

first; 

(find the correct Session) 

while SessionNumber o fieldbynameCNumber’).asstring do 
next; 



Session;= fieldbynameCNeumonic’).asstring; 

send(’Here are the Articles in Session <B>' +Session+ '</B> for which you wanted to Assign 
Presentation Times. '); 

sendCFill in the Times and "Submit" them.<BR>'); 
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send('<P><FORM ACTI0N="../cgi-win/Times3.exe" METHOD="GET">'); 
send(’<INPUT TYPE="hidden" Name="Sess" Value=’" +Session+ 



end; {with Sessions} 



{Find the Articles in this session} 

{Create the stringlists} 
ArticlesInSessionList;= TStringlist.create; 
OrderInSessionList;= TStringlist.create; 
ArticlesInOrderListr= TStringlist.create; 



{Clear the stringlists} 
ArticlesInSessionList.clear; 
OrderInSessionList. clear; 
ArticlesInOrderList.clear; 



{Get the Article Record } 
with Articles do begin 

{Prepare Article Table} 

Articles.open; 

Articles, first; {Start at the beginning of the ARTICLE Table} 



{Check every article against the session neumonic. Matches go on InSession stringlist} 
while not Articles.EOF do begin 

if Articles.fieldByName ('Session'). asstring = Session then begin 

{Put the paper_number on a list and the OrderInSession on another - they 
must be symetrical} 

ArticlesInSessionList.add (fieldbyname(PaperNumber').asstring); 
OrderInSessionList. add (fieldbyname('OrderlnSession'). asstring); 
end; {if then} 

Articles.next; 

end; {while not articles EOF} 
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end; {with Articles} 



if ArticlesInSessionList. count > 0 then begin 

{Put Articles in order in the InOrder stringlist} 

{First initialize the list by placing a dummy value in the string for each value that 
will be added} 

for j;= 0 to ArticlesInSessionList count do {the [0] place will not be used but must be 
included to get the order numbers to start at [1]} 

ArticlesInOrderList.add ('an empty field to hold the place'); 

{Now go through the list of articles and put them in the ''ArticleslnOrderLisf in 
order (as saved in the "OrderlnSessionList)} 

for j:= 0 to ArticlesInSessionList. count- 1 do begin 

{get the OrderlnSessionList value and make it an integer} 
Order;=strtoint(OrderInSessionList[j]); 

{assign the article title to the InOrderList in its place} 
ArticlesInOrderList[Order]:= ArticlesInSessionList{j]; 
end; 

{Go through the Articles in OrderList and retrieve information and print it out} 
forj:= 1 to ArticlesInOrderList.count-1 do begin 

{ Move to proper record in ARTICLE Table} 

Articles.open; 

Articles, first; 

dTitle:= ArticlesInOrderList(j]; 

{make ArticlesInOrderList(j) an integer for comparisom} 
dTitleint:= strtoint(dTitle); 

while Articles.fieldbyName('Paper_Number’).asinteger o dTitleint do 
Articles, next; 



{ Retrieve record } 
with Articles do begin 

dbPaper_Number;= fieldByName CPaper_Number').asstring; 
dbtitle;= fieldByName ('title’).asstring; 
dbOrderInSession:= fieldByName ('OrderlnSession').asstring; 
dbPresentationTime:= fieldByName (’PresentationTime').asstring; 
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(Send Session edit FORM to HTML page} 
send(" + dbOrderInSession+ ' ’); 

send('<INPUT TYPE="text" Name='" +dbPaper_Number+ SIZE="10" Value="' 
+dbPresentationTime+ 

sendC ' +dbtitle+ '<BR>'); 



end; {with Articles) 
end; {for i= 1 to articleinOrderList} 

send('<PxCENTERxINPUT TYPE="submit" Value="Submit Presentation Times">'); 
send('<INPUT TYPE="reset" VALUE="Reset to Original 
Session"x/CENTERx/FORM>’); 

end; {if count > 0} 



{Standard Footer) 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value='T’>'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {FormCreate} 
end. 
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unit Times_3; 
interface 



Confirmation; Times3.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Articles: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

i, j, dTitle; integer; 

dsession ; string; 
dTitlein, dTitlestr; string; 
dString, AssignString; string; 
dnum: string; 

Titlelist ; TStringList; 

flmction TitleToInt ( S; string) rinteger; 

implementation 

{$R *.DFM) 

function TitleToInt ( S: string) rinteger; 

{This function is necessary because the string value of dTitle has several spaces in 
it and the strtoint function cannot handle the conversion properly} 
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var 

temp: string; {temporary variable to build new string into} 
j ; integer; {Counting Variable to keep track of how many characters are in the 
number} 

begin 

(set the counter to zero} 

j:=0; 

{count the characters} 
repeat 

until S[j+1] = ”; 

{Copy the valid number characters over to temp} 

temp := Copy(S, 1, j); 

{Convert the temp string to an integer value} 

TitleToInt := strtoint (temp); 

end; {TitleToInt} 

^ 3): 4: ^ 3|c 3|e 4: 9|: 9|c a|c 9|c^ :|e 3|e 4: 3|: 3|e :|e 4c 3k 3k 3|e 4c 3|c ]|e 9|c 3|e 4c :|e 3k ^ 

procedure TForml.formcreate(Sender; TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandIer; 

application.processMessages; 

createStdout; 

sendPrologue; 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</KEADxBODY bgcolor=FTFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

{Get query string from Time2.exe} 

Titlelist:= TStringlist. create; {list of titles to assign to the session} 

AssignString” CGIQueryString^; 
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dString.- ' {Initialize as Blank } 

j;= 1; {The counter for the individual strings within the QueryString} 

for i ;= 6 to Length(AssignString) do {The counter for going through the AssignString - 
eight is the first valuable character (the beginning of the Presentation Time) } 

if (AssignString[i] o '&') and (AssignString[i] o '- ) then begin {the character is 
valuable} 

dStringO] ;= AssignString[i]; 

end {if AssignString[i] o then} 
else begin {The & signifies the end of the string} 

TitleList.add (dString); 

dString;= ' {Blank out the old values} 

j :=1 ; { reset the string counter} 

end; {else} 

TitleList.add (dString); {This is to put the last string into the string list. It is 
necessary because there is no & at the end} 



{Place the Presentation Time into each Paper Number passed} 
{Note: The string list consists of the following components - 

[0] session # 

[1] first paper-number 

[2] first paper Presentation Time 

[3] second paper-number 

[4] second paper Presentation Time 



This is important to understand when interpreting the "for" loop!} 

{The first item in the Title List is the Session Neumonic} 

dSession:= TitleList[0]; 

{Send confirmation} 

send C<P>The following Articles have been placed in Session <B>’ +dSession+ '</B> in the 
order indicated. The Session '); 

send ('and the Orders in the Session may be changed at any time by repeating the process of 

send C<A HREF="../cgi-win/ Assign. exe">Assigning an Article to a 
Session</A>.<Pxpre>Order Title<prexBR>'); 
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{The rest of the items are (Paper_Number and Presentation Time) pairs} 
with Articles do begin 

open; (Prepare the Table for use} 
for i;= 1 to TitleList. count- 1 do begin 

(Get the next Paper_Number} 
dTitlein;= TitleList[i]; 

(Convert the Paper_Number string to an integer value} 
dTitle:= TitleToInt (dTitlein); 

(Move to proper record} 

first; (go back to the first record before every new search} 
while fieldbyname('Paper_Number').asinteger o dTitle do 
next; 



{******** Increment "i" to get to the Presentation Time *********} 

(This causes the "for" loop to skip every other element} 

i:=i+l; 

(Insert the Session} 
edit; 

Setfields ([nil, nil, nil, nil, nil, nil, nil, TitleList[i]]); (The remaining fields are 

ignored} 

post; 

(Send title name} 

send(" +TitleList[i]+ ' ' +fieldbyname(Title').asstring+ '<BR>'); 
end; {for} 
close; ( the table} 
end; (with Articles} 

send(’<PxFORM ACTION="../cgi-win/Times.exe" METHOD="POST">'); 
send(’<INPUT TYPE="hidden" Name="flag" Value=" !">’); 
send('<P><CENTER><INPlJT TYPE-' submit" Value=" Assign more Presentation 
Times"x/CENTER></FORM><P> '); 

(Send Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
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send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send('<PxCENTERxlNPlJT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {FormCreate} 



end. 
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Selection options; PassWds.exe 



unit Passwds; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGIEnvDatal; TCGIEnvData; 

CGDDBl; TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
dUserlD: string; 
dpwd: string; 
dbpassword: string; 
dflag: string; 

implementation 

($R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteENIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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send (’<PnML><HEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 



{Determine whether flag is valid} 
dflag;= getsmallfield ('flag'); 
if (dflag = T) then begin {flag is set} 

send('<centerxH2>Asilomar Conference System Administration</H2></center>’); 
sendhr; 



{Send Instructions} 

sendhdr('3', 'System Admin user passwords.'); 

send('To change a System Admin password, enter the information below and "Modify a 
System Admin User Password." '); 

sendC The new password must be entered twice to ensure validity. To ADD or DELETE a 
User, select the appropriate '); 
sendCButtons below.'); 



send('<P><CENTERxALIGN LEFTxFORM ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">'); 

send('<INPUT NAME="flag" TYPE="hidden" Value="l">'); 

send('<B>User name: </BxlNPUT NAME="userid" Size="20" TYPE="text"xBR>'); 

send('<B>01d Password: </BxlNPUT NAME="oldpwd" Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password: </BxINPUT NAME="newpwdl " Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password Again:</B><rNPUT NAME="newpwd2" Size="20" 
TYPE="password"xBRx/ALIGN left>'); 

send('<INPUTNAME="action" TYPE="hidden" Value="admin">'); 
send(’<P><INPUT TYPE=" submit" Value="Modify System Admin User Password">'); 
send('<INPUT TYPE="reset" Value="Clear Values"x/FORMxBR>'); 
scnd(*’<^br^******* ************** *****^ ***************** ******)’ 



send('<PxFORM ACTION="../cgi-win/PwdAdd.exe" METHOD="POST">'); 
send('<INPUTNAME="flag" Size="3" TYPE="hidden" Value="l">'); 
send('<INPUT NAME="action" TYPE="hidden" Value="admin">'); 
send(’<PxINPUT TYPE="submit" Value=" Add a new System Admin User"x/FORM>’); 



send('<PxFORM ACTION="../cgi-win/P wdDel.exe" METHOD="POST">’); 
send('<INPUT NAME="flag" Size="3" TYPE="hidden" Value="l">'); 
send('<INPUT NAME="action" TYPE="hidden" Value="admin">'); 
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send('<PxINPUT TYPE="submit" Value=" Delete a System Admin User 
"XCENTERx/FORMxBR>’); 

sendhr; 

sendhdr('3', *Reviewer passwords.'); 

send('To change a reviewer password, enter the information below and "Modify a Reviewer 
Password." '); 

sendC The new password must be entered twice to ensure validity. To ADD or DELETE a 
Reviewer, select the '); 

sendCappropriate Buttons below.'); 



send('<PxCENTERxFORM ACTION="../cgi-win/Pwdmod.exe" METHOD="POST">'); 
send('<INPUTNAME="flag" TYPE="hidden" Value="l">'); 
send('<B>Reviewer name: </BxINPUT NAME="userid" Size="20" 

TYPE="text"xBR>'); 

send('<B>01d Password: </BxlNPUT NAME="oldpwd" Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password: </BxlNPUT NAME="newpwdl " Size="20" 

TYPE="password"xBR>'); 

send('<S>New Password Again:</BxlNPUT NAME="newpwd2" Size="20" 
TYPE="password"xBR>'); 

send('<INPUTNAME="action" TYPE="hidden" Value="reviewer">’); 
send('<PxINPUT TYPE="submit" Value="Modify Reviewer Password">'); 
send('<INPUT TYPE="reset" VaIue="Clear Values"x/FORMxBR>'); 



send('<PxFORM ACTION="../cgi-win/PwdAdd.exe" MEraOD="POST">'); 
send('<INPUT NAME="flag" TYPE="hidden" Value="l">'); 
send('<INPUT NAME="action" TYPE="hidden" Value="reviewer">'); 
send('<PxINPUT TYPE="submit" Value="Add a newReviewer"x/FORM>’); 

send('<PxFORM ACTION="../cgi-win/PwdDel.exe" METHOD="POST">'); 
send(’<INPUTNAME="flag" TYPE="hidden" Value="l">’); 
send('<INPUTNAME="action" TYPE="hidden" Value="reviewer">'); 
send('<PxINPUT TYPE="submit" Value="Delete a Reviewer" 
Size="30"x^ORMx/CENTERxp>'); 



{Footer} 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page''x/CENTER></FORM>'); 
end {flag is set} 



402 



else begin {flag **incorrect**} 



send C<centerxH2>Asiloniar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxpxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF="http;//131. 120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODY></HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 

end; {FormCreate} 

end. 
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unit Pwd_mod; 
interface 



Modify Password; PwdMod.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

Admin: TTable; 

Reviewer: TTable; 

DataSourcel: TDataSource; 

CGIEnvDatal: TCGEEnvData; 

CGIDB I; TCGIDB; 

procedure FormCreate( Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
var 

dflag: string; 

duserid; string; {ID for either the Admin user or the reviewer} 

doldpwd; string; 

dnewpwdl, dnewpwdl: string; 

daction: string; 

begin 

with CGIEnvDatal do begin 

webSiteINIFiIename;=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application. processMessages; 
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createStdout; 

sendPrologue; 

{Standard Header} 

send C<HTMIXHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send C<centerxH2>Asilomar Conference System Administration</H2>'); 
sendhr; 



{ Get field from search page } 
dflag;= getsmallfield ('flag'); 

duserid— getsmallfield ('userid'); { gets the H) for either the Admin user or the 
reviewer} 

doldpwd;= getsmallfield ('oldpwd'); 
dnewpwdl := getsmallfield ('newpwdl'); 
dnewpwd2;= getsmallfield ('newpwd2'); 
daction:= getsmallfield ('action'); 

(check flag} 

if dflag = T then begin 

if dnewpwdl = dnewpwd2 then begin 

(If action is admin then modify admin table, else modify reviewer Table} 

if daction = 'admin' then begin 

with Admin do begin 

{Update record } 

{Move to record} 

open; 

first; 

while (fieldbyname(UserlD').asstring o duserid) and (not EOF) do 
next; 

if (fieldbyname('UserlD').asstring = duserid) then begin 
edit; 

setfields([nil, nil, dnewpwdl]); 

post; 

close; 
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sendhdr('3’, 'The System Admin Password has been changed!'); 
end 

else begin 

send('<P>User not found, please try again.'); 

send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag" TYPE="hidden" Value="l">'); 
send('<B>User name: </BxINPUT NAME="userid" Size="20" 

TYPE="text"xBR>'); 

send('<B>01d Password: </BxINPUT NAME="oldpwd" Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password: </BxINPUT NAME="newpwdl " Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password Again:</BxINPUT NAME="newpwd2" Size="20" 
TYPE="password"xBRx/ALIGN left>'); 

send('<INPUTNAME="action" TYPE="hidden" Value="admin">'); 
send('<PxlNPUT TYPE="submit" Value="Modify System Admin User Password">'); 
send('<INPUT TYPE="reset" Value="Clear Values"x/FORM>’); 
end; 

end; {with admin} 

end {if daction = admin} 

else if daction = 'reviewer' then begin 

with Reviewer do begin 

{Update record } 

{Move to record} 

open; 

first; 

while (fieldbyname('ReviewerlD').asstring o duserid) and (not EOF) do 
next; 

if (fieldbynameCReviewerlD').asstring = duserid) then begin 
edit; 

setfields([nil, nil, dnewpwdl]); 

post; 

close; 

sendhdr('3', 'The Reviewer Password has been changed!'); 
end 



406 



else begin 



send('<P>Reviewer not found, please try again.'); 

sendC<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">’); 

send(’<INPUTNAME="flag" TYPE="hidden" Value='T'>'); 
send('<B>Reviewer name; </BxINPUT NAME="userid" Size="20" 
TYPE="text"xBR>'); 

send(’<B>01d Password: </BxINPUT NAME="oldpwd" Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password: </BxINPUT NAME="newpwdl " Size="20" 

TYPE="password"xBR>’); 

send(’<B>New Password Again;</BxINPUT NAME="newpwd2" Size="20" 
TYPE="password"xBRx/ALIGN left>’); 

send(’<INPUTNAME="action" TYPE="hidden" Value="reviewer">'); 
send('<PxlNPUT TYPE="submit" Value="Modify Reviewer Password">'); 
send('<INPUT TYPE="reset" Value="Clear Values"x/FORM>'); 
end; 

end; {with reviewer} 
end; {if daction = reviewer} 

send(’<PxFORM ACTION="../cgi-win/Passwds.exe’' METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send(’<PxCENTERxlNPUT TYPE="submit" Value="Modify more 
Passwords"x/CENTERx/FORM>'); 

end {new passwords matched} 

else begin 

{new passwords don't match} 

send('<P>The new passwords did not match, please try again.'); 

send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag" TYPE="hidden" Value="l">'); 

send('<B>User name: </BxINPUT NAME="userid" Size="20" 

TYPE="text"xBR>'); 

send('<B>01d Password; </BxINPUT NAME="oldpwd" Size="20" 
TYPE="password"xBR>'); 

send('<B>New Password: </BxINPUT NAME="newpwdl " Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password Again:</BxINPUT NAME="newpwd2" Size="20" 
TYPE="password"xBRx/ALIGN left>'); 
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send(’<INPUT NAME="action" TYPE="hidden" Value='" +daction+ 



if daction = 'admin' then send('<PxINPUT TYPE="submit" Value="Modify System 
Admin Password">') 

else send('<PxINPUT TYPE="submit" Value- 'Modify Reviewer Password">'); 

send('<INPUT TYPE="reset" Value="Clear Values"x/CENTERx/FORMxBR>’); 
end; {if then else} 

(Standard Footer} 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwdexe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">’); 

send('<PxCENTERxINPUT TYPE=’'submit" Value='’Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 

end (flag is set} 

else begin (flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxPxlMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send ("Return to the <A HREF- 'http;//131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
close App( application ); 
end; {with CGEEnvData 1 } 
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end; {FormCreate} 
end. 
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unit Pwdadd; 
interface 



Add new user/reviewer; PwdAdd.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGDEnvData; 

CGE)B1: TCGIDB; 

DataSourcel: TDataSource; 

Admin: TTable; 

Reviewer: TTable; 

procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
var 

dflag: string; 
daction: string; 

begin 

with CGIEnvDatal do begin 

webS iteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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(Standard Header} 

send ('<HTMLxHEAD>'); 

SendTitle('AsiIomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>’); 

send C<centerxH2>Asilomar Conference System Administration</H2>’); 
sendhr; 



{ Get field from search page } 
dflag” getsmallfield ('flag'); 
daction:= getsmallfield ('action'); 

(check flag} 

if dflag = T then begin 



(If action is admin then modify admin table, else modify reviewer Table} 
if daction = 'admin' then begin 



send('<P>To ADD a new System Admin User, please enter the following. The password is 
entered '); 

send(*twice to ensure validity'); 

send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/PwdAdd2.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag" TYPE="hidden" Value="l">'); 
send('<B>New User name: </BxINPUT NAME="userid" Size="20" 

TYPE="text"xBR>'); 

send('<B>Password: </BxfNPUT NAME="newpwdl" Size="20" 

TYPE="password"><BR>'); 

send('<B>Password Again:</BxENPUT NAME="newpwd2" Size="20" 
TYPE="password"xBRx/ALIGN left>'); 

send('<INPUT NAME="action" TYPE="hidden" Value='" +daction+ '">'); 
send('<PxINPUT TYPE="submit" Value="ADD this New System Admin User">'); 
send('<INPUT TYPE="reset" Value="Clear Values"></CENTER></FORM><BR>'); 
end (if daction then} 

else begin 

send('<P>To ADD a new Reviewer, please enter the following. The password is entered '); 
send('twice to ensure validity'); 
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send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/PwdAdcl2.exe" 
METHOD="POST’’>’); 

sendC<INPUT NAME="flag" TYPE="hidden" Value='T’>’); 
send('<B>New Reviewer name: </BxlNPUT NAME="userid" Size="20" 

TYPE=’’text"xBR>'); 

send('<B>Password: </BxlNPUT NAME="newpwd 1 " Size="20" 

TYPE="password"xBR>'); 

send('<B>Password Again:</BxINPUT NAME="newpwd2" Size="20" 
TYPE=’’password"xBRx/ALIGN left>’); 

send('<INPUT NAME="action" TYPE=''hidden" Value=’" +daction+ 
sendC<PxINPUT TYPE="submit" Value="ADD this New Reviewer">'); 
sendC<INPUT TYPE="reset" Value=’’Clear Values"x/CENTERx/FORMxBR>’); 
end; {if daction then} 



(Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST’’>'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">’); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>’); 

end (flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>’); 
sendhr, 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>’); 
send C<P>Please ensure that you are authorized to access this information.’); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 
again. </A>’); 

send C<P>If you are not authorized to access this information, please note that a log is’); 
send (’maintained that includes your URL. You may be subject to civil and/or criminal ’); 
send (’prosecution for your actions.<BR>’); 



send (’<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">’); 

send CRetum to the <A HREF="http://l 3 1 . 120.20.70/Index.html">Asilomar’); 

send (’Conference On-line Submission Page</A>’); 

send (’</BODYx/HTML>’); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 
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send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 

end; {FormCreate} 

end. 
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unit Pwd add2; 
interface 



Addition confirmation; PwdAdd2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTaWes, Cgjdb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGEEnvData; 

CGIDBl; TCGIDB; 

Admin: TTable; 

DataSourcel: TDataSource; 

Reviewer: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml. FormCreate(Sender: TObject); 
var 

dflag: string; 

duserid: string; {ID for either the Admin user or the reviewer} 
dnewpwdl, dnewpwd2: string; 
daction: string; 

begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application. processMessages; 



414 



createStdout; 

sendPrologue; 

{Standard Header} 

send ('<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolop=FFFFFF>’); 

send C<centerxH2>Asilomar Conference System Administration</H2>'); 
sendhr; 



{ Get Held from search page } 
dflag:= getsmallfield ('flag'); 

duserid:= getsmallfield ('userid'); { gets the H) for either the Admin user or the 
reviewer} 

dnewpwdl:= getsmallfield ('newpwdl'); 
dnewpwd2:= getsmallfield ('newpwdl'); 
daction:= getsmallfield ('action'); 



{check flag} 

if dflag = T then begin 

if (dnewpwdl = dnewpwdl) and (dnewpwdl o") then begin 
{If action is admin then modify admin table, else modify reviewer Table} 
if daction = 'admin' then begin 
with Admin do begin 
{Append record } 
open; 

AppendRecord([nil, duserid, dnewpwdl]); 
close; 

end; {with admin} 

sendhdr('3', 'The System Admin User "<B>' +duserid+ ’</B>" has been added!'); 
end {if daction = admin} 

else if daction = 'reviewer' then begin 

with Reviewer do begin 



415 



{Append record } 



open; 

AppendRecord([nil, duserid, dnewpwdl]); 
close; 

end; {with reviewer} 

sendhdr('3', 'The Reviewer "<B>' +duserid+ '</B>" has been added!'); 
end; {if daction = reviewer} 



send(’<PxFORM ACTION="../cgi-win/Passwds.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value='T'>'); 
send(’<PxCENTERxINPUT TYPE="submit" Value="Modify more 
Passwords"x/CENTERx/FORM>'); 



end {new passwords matched} 
else begin 

(new passwords don't match} 

send('<P>The new passwords did not match, please tiy again.'); 

send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/Pwdadd2.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag" TYPE="hidden" Value="l">'); 
send('<B>User name; </BxINPUT NAME="userid" Size="20" 
TYPE="text"><BR>'); 

send('<B>New Password: </BxINPUT NAME="newpwd 1 " Size="20" 

TYPE="password"xBR>'); 

send('<B>New Password Again:</BxINPUT NAME="newpwd2" Size="20" 
TYPE="password"xBRx/ALIGN left>'); 

send('<INPUT NAME="action" TYPE="hidden" Value='" +daction+ '">'); 
if daction = 'admin' then send('<PxINPUT TYPE=" submit" Value="ADD System Admin 
User">') 

else send('<PxINPUT TYPE="submit" Value="ADD New Reviewer">'); 

send('<INPUT TYPE="reset" Value="Clear Values"x/CENTERx/FORMxBR>'); 
end; 

{Standard Footer} 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
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send(’<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page'’x/CENTERx/FORM>'); 

end {flag is set) 

else begin {flag **incorrect**} 

send C<centerxPI2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 



send C<PxhrxPxlMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send ('Return to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send (’Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; {flag **incorrect**} 

send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; {with CGIEnvDatal} 

end; {FormCreate} 

end. 
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unit Pwd_del; 
interface 



Delete a user/reviewer; PwdDeLexe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGEEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel: TDataSource; 

Admin: TTable; 

Reviewer: TTable; 

procedure FormCreate( Sender TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml. FormCreate(Sender: TObject); 
var 

dflag: string; 
daction: string; 

begin 

with CGIEnvDatal do begin 

webSiteINlFilename:=paramstr( 1 ); 
application. onException:=cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 
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{Standard Header} 

send ('<HTMLxHEAD>’); 

SendTitIe('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send C<centerxH2>Asilomar Conference System Administration</H2>'); 
sendhr; 



{ Get field from search page } 
dflag:= getsmallfield ('flag'); 
daction;= getsmallfield ('action'); 

(check flag} 

if dflag = T then begin 



{If action is admin then modify admin table, else modify reviewer Table} 
if daction = 'admin' then begin 



send('<P>To DELETE a System Admin User, please enter the following.'); 

send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/PwdDel2.exe" 
METHOD="POST">'); 

send('<INPUT NAME="flag" TYPE="hidden" Value="l">'); 
send('<B>User name; </BxINPUT NAME="userid" Size="20" 
TYPE="text"xBR>'); 

send('<B>Password; </BxINPUT NAME="oldpwd" Size="20" 
TYPE="password"xBR>'); 

send('<INPUT NAME="action" TYPE="hidden" Value='" +daction+ '">'); 
send('<PxINPUT TYPE=" submit" Value="Delete this System Admin User">'); 
send('<INPUT TYPE="reset" Value="Clear Values"x/CENTERx/FORMxBR>'); 
end {if daction then} 

else begin 

send('<P>To DELETE a Reviewer, please enter the following;'); 

send('<PxCENTERxALIGN LEFTxFORM ACTION="../cgi-win/PwdDel2.exe" 
METHOD="POST">’); 

send(’<INPUT NAME="flag" TYPE="hidden" Value="l">'); 
send('<B>Reviewer name; </BxINPUT NAME="userid" Size="20" 
TYPE="text"xBR>'); 
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send('<B>Password: </BxINPUT NAME="oIdpwd" Size="20" 

TYPE=’’password"xBR>’); 

send(’<INPUT NAME="action" TYPE=''hidden" Value="' +daction+ 
send('<PxINPUT TYPE-'submit" Value="Delete this Reviewer">'); 
send(’<INPUT TYPE="reset" Value="CIear Values"x/CENTERx/FORMxBR>’); 
end; (if daction then) 

(Standard Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 

end (flag is set} 

else begin (flag **incorrect**} 

send C<centerxH2>AsiIomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send (’<P>If you made an error, then please <A HREF="../prototype/admin20.htm">tiy to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 



send C<PxhrxPxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send CRetum to the <A HREF="http://131.120.20.70/Index.html">Asilomar'); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 

end; (flag **incorrect**} 

send C</BODYXHTML>'); 
closeStdout; 
closeApp( application ); 
end; (with CGIEnvDatal} 

end; (FormCreate} 
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end. 
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unit Pwd_del2; 
interface 



Deletion confirmation; PwdDel2.exe 



uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel; TDataSource; 

Admin; TTable; 

Reviewer; TTable; 

CGIEnvDatal; TCGIEnvData; 

CGIDBl; TCGIDB; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
($R *.DFM} 

procedure TForml. FormCreate(Sender; TObject); 
var 

dflag; string; 

duserid; string; {ID for either the Admin user or the reviewer} 
doldpwd; string; 
daction; string; 

begin 

with CGIEnvDatal do begin 

webSiteINIFilename;=paramstr( 1 ); 

application.onException;=cgiEiTorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

{Standard Header} 

send ('<HTMLxHEAD>'); 

SendTitle(’Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send C<centerxH2>Asilomar Conference System Administration</H2>'); 
sendhr; 



{ Get field from search page } 

(Mag:= getsmallfield ('flag'); 

duserid:= getsmallfield ('userid'); { gets the H) for either the Admin user or the 
reviewer} 

doldpwd:= getsmallfield ('oldpwd'); 
daction:= getsmallfield ('action'); 



{check flag} 
if dflag= T then begin 

{If action is admin then modify admin table, else modify reviewer Table} 

if daction = 'admin' then begin 

with Admin do begin 

{Update record } 

{Move to record} 

open; 

first; 

while (fieldbynameCUserlD').asstring o duserid) and (not EOF) do 
next; 

if not EOF then begin 
edit; 
delete; 
close; 

sendhdr('3'. The System Admin User "<i>' +duserid+ '</i>" has been Deleted!'); 
end 
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else begin 



send('<P>The User ”<B>' +duserid+ '</B>" was not found, please try again.'); 
send('<P><CENTERxALIGN LEFTxFORM ACTION="../cgi-win/Pwddel.exe" 
METHOI>"POST">’); 

send(’<INPUT NAME="flag" TYPE="hidden" Value='T'>’); 
send(’<B>User name: </BxINPUT NAME="userid" Size="20" 

TYPE="text"xBR>'); 

send(’<B>01d Password: </B><INPUT NAME="oldpwd" Size="20" 

TYPE="password"xBR>'); 

send(’<INPUT NAME="action" TYPE="hidden'' Value="’ +daction+ 
send('<PxlNPUT TYPE-'submit" Value="Delete this System Admin User">’); 
send(’<INPUT TYPE="reset" Value="Clear Values"x/CENTERx/FORM>’); 
end; {else} 

end; (with admin} 

end {if daction = admin} 

else if daction = 'reviewer' then begin 

with Reviewer do begin 

{Delete record } 

{Move to record} 

open; 

first; 

while (fieldbyname('ReviewerK)').asstring o duserid) and (not EOF) do 
next; 

if not EOF then begin 
edit; 
delete; 
close; 

sendhdr('3', 'The Reviewer "<i>' +duserid+ '</i>" has been Deleted!'); 
end 

else begin 

send('<P>The Reviewer "<B>' +duserid+ '</B>" was not foimd. please try again.'); 
send('<PxCENTERxALIGN LEFTXFORM ACTION="../cgi-win/Pwddel.exe" 
METHOD="POST">'); 

send('<INPUT NAME="flag" TYPE="hidden" Value=" 1 ">'); 
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</BxINPUT NAME="userid" Size="20 



send('<B>User name: 

TYPE="text"xBR>'); 

send('<B>01d Password: </BxINPUT NAME="oldpwd" Size="20" 

TYPE="password"xBR>'); 

send('<INPUT NAME="action" TYPE="hidden" Value="' +daction+ 
send('<PxINPUT TYPE=" submit" Value="Delete this Reviewer">'); 
send(’<INPUT TYPE="reset" Value="Clear Values"x/CENTERx/FORM>'); 
end; {else} 

end; {with reviewer} 
end; {if daction = reviewer} 



send(’<PxFORM ACTION="../cgi-win/Passwds.exe’* METHOD="POST’’>'); 
send(’<INPUT TYPE=’’hidden" Name="flag” Value=’T’>’); 
send(’<PxCENTERxINPUT TYPE="submit" Value="Modify more 
Passwords"x/CENTERx/FORM>'); 

{Standard Footer} 
sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T’>'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx;FORM>'); 

end {flag is set} 

else begin {flag **incorrect**} 

send C<centerxH2>Asilomar Conference on Signals, Systems, & Computers</H2x/center>'); 
sendhr; 

send C<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 

send C<P>Please ensure that you are authorized to access this information.'); 

send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to login 

again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 

send C<PxhrxpxIMG SRC="../prototype/asil2b0.gif " align=left alt="Asilomar facility">'); 

send (Return to the <A HREF="http://131.120.20.70/Index.html">Asilomaf); 

send ('Conference On-line Submission Page</A>'); 

send C</BODYx/HTML>'); 

closeStdout; 
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closeApp( application ); 

end; {flag **incorrect**} 

send C</BODyx/HTML>’); 
closeStdout; 
closeApp( application ); 
end; {with CGEEnvDatal} 

end; {FormCreate} 

end. 
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This single program: P_Sess.exe 



unit Prsess; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Queryl : TQuery; 

Sessions; TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1; TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations ) 
public 

{ Public declarations } 
end; 

var 

Fonnl: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 



with CGIEnvDatal do begin 

webSiteINlFilename;=paramstr( 1 ); 
application.onException;=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

send C<HTMLxHEAD>'); 
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SendTitle('Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 

end; 

with cgiEnvDatal do begin 

send('<centerxH2>Asilomar Conference System Administration<H2x/centei>'); 
sendhr; 

send('<Pxh3>These are the current Sessions Scheduled in the 
database;</h3xPxcenter>'); 

With Sessions do begin 

open; 

first; 

While not EOF do begin 

send (" +fieldbyname ('neumonic').asstring+ ' <BR>'); 
next; 

end; (while) 
close; 

send C</centerxP>'); 
end; (with Sessions) 

sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=’T’>'); 

send('<PxCEN 1 ERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send ('</BODYx/HTML>'); 
closeStdout; 
closeAppf application ); 

end; (with cgiEnvDatal do) 

end; (FormCreate) 

end. 
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Select Article or All: P ArtLexe 



unit Prartl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGBEnvData; 

CGIDB 1: TCGIDB; 

Query 1; TQuery; 

DataSourcel: TDataSource; 

Articles: TTable; 

Query IPaper Number: TIntegerField; 

QuerylTitle: TStringField; 

ArticlesPaper_Number: TIntegerField; 

ArticlesTitle: TStrin^ield; 

Articlesinvited: TStringField; 

Articles Accepted: TStringField; 

ArticlesContactAuthorNumber: TIntegerFi eld; 

ArticlesSession: TStringField; 

ArticlesKeywordl: TStringField; 

ArticlesKeyword2: TStringField; 

ArticlesKeywordS: TStringField; 

ArticlesAbstract: TMemoField; 

ArticlesContactOrder: TStringField; 

ArticlesFName2: TStringField; 

ArticlesLName2: TStringField; 

Articleslnitial2: TStringField; 

ArticlesInstitution2: TStringField; 

ArticlesOrder2; TStringField; 

ArticlesFNameS: TStringField; 

ArticlesLNameS: TStringField; 

ArticlesInitiaB: TStringField; 

ArticlesInstitutionS: TStringField; 

ArticlesOrderS: TStringField; 

ArticlesFName4: TStringField; 

ArticlesLName4: TStringField; 

Articleslnitial4: TStringField; 

ArticlesInstitution4: TStringField; 

ArticlesOrder4: TStringField; 



429 



ArticlesFNameS; TStringField; 

ArticlesLNameS; TStringField; 

ArticlesInitialS: TStringField; 

ArticlesInstitution5: TStringField; 

ArticlesOrderS: TStringField; 

ArticlesFName6; TStringField; 

ArticlesLName6: TStringField; 

Articleslnitial6; TStringField; 

ArticlesInstitution6; TStringField; 

ArticlesOrder6; TStringField; 
procedure FormCreate(Sender: TObject); 
procedure CGIDBlSendingHotField(currentRecord; TDataset; 
var s; OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 



with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiEiTorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send (’<HTMLxPffiAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 
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with Query 1 do begin 



prepare; { Optimizes query } 

close; 

sql.clear; 

sql.add('Select * FROM Submissi’); 
sql.add( 'Order by Title ’ ); 
open; 

{Display the results of the Query} 

send(’<P>Choose the Article you would like to see below. The information will be 
displayed to the screen '); 

send(’in a format that most Browsers will print directly. You may also <A HREF="../cgi- 
win/P_artl2.exe">Print '); 

sendCInformation for ALL Articles to a File</A>.<PxCENTERxBR>'); 

CGIDBl.drawtable; {display all titles} 
send ('</centerxp>'); 
end; { with Queryl } 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" Value='T’>’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send (’</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {FormCreate} 

procedure TForml.CGIDBlSendingHotField(currentRecord; TDataset; 
var s: OpenString); 
begin 

s:-<A HREF="../cgi-win/P_Artl2.exe?’+ 
currentrecord.fieldbyName(PaperNumber’). AsString + 

+ currentrecord.FieldbyName(’Title'). AsString + '</A>'; 

end; 

end. 
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Print Article: P Artl2.exe 



unit Prartl2; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgj; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

Query 1: TQueiy; 

DataSourcel: TDataSource; 

Articles: TTable; 

Authors: TTable; 

AuthorsANumber: TIntegerField; 

AuthorsFName: TStringField; 

AuthorsLName: TStringField; 

Authorsinitial: TStringField; 

AuthorsHonorific: TStringField; 

Authorsinstitution: TStringField; 

AuthorsDepartment: TStringField; 

AuthorsMailstop: TStringField; 

AuthorsAddress_Street TStringField; 

AuthorsAddress_City: TStringField; 

AuthorsAddress_State: TStringField; 

AuthorsAddress Zip: TStringField; 

AuthorsCoimtry: TStringField; 

AuthorsPhone LocalNumber: TStringField; 

AuthorsPhone_AreaCode: TStringField; 

AuthorsPhone FaxNumber: TStringField; 

AuthorsEmail: TStringField; 

ArticlesPaper Number: TIntegerField; 

ArticlesTitle: TStringField; 

Articleslnvited: TStringField; 

ArticlesAccepted: TStringField; 

ArticlesContactAuthorNumber: TIntegerField; 

ArticlesSession: TStringField; 

ArticlesKeywordT. TStringField; 

ArticlesKeyword2: TStringField; 

ArticlesKeywordS: TStringField; 

ArticlesAbstract: TMemoField; 
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ArticlesContactOrder: TStringField; 
ArticlesFName2: TStringField; 
ArticlesLName2; TStringField; 
Articleslnitial2; TStringField; 
ArticlesInstitution2; TStringField; 
ArticlesOrder2: TStringField; 
ArticlesFNameS: TStringField; 
ArticlesLNameS; TStringField; 
ArticlesInitialS: TStringField; 
ArticlesInstitutionS: TStringField; 
ArticlesOrderS: TStringField; 
ArticlesFName4: TStringField; 
ArticlesLName4; TStringField; 
Articleslnitial4; TStringField; 
ArticlesInstitution4; TStringField; 
ArticlesOrder4; TStringField; 
ArticlesFNameS; TStringField; 
ArticlesLNameS: TStringField; 
ArticlesInitialS: TStringField; 
ArticlesInstitutionS: TStringField; 
ArticlesOrderS: TStringField; 
ArticlesFName6: TStringField; 
ArticlesLName6: TStringField; 
Articleslnitial6: TStringField; 
ArticlesInstitution6: TStringField; 
ArticlesOrder6; TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml ; TForml; 

theabstract : TStringList; 
theAuthors : TStringList; 

i; integer; 

dbContactOrderInt; integer; 
dbOrder2int: integer; 
dbOrderSint: integer; 
dbOrder4int; integer; 
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dbOrderSint; integer; 
dbOrder6int: integer; 

dPaper Number; string; 

dbtitle: string; 
dbinvited: string; 
dbaccepted: string; 
dbANumber; string; 
dbSession; string; 

dbkeywordl: string; 
dbkeyword2: string; 
dbkeywordS; string; 
dbabstract; string; 
dbcontactOrder; string; 

dbfiiame2; string; 
dblname2: string; 
dbinitial2: string; 
dbinstitution2; string; 
dborder2: string; 

dbfnameS; string; 
dblnameS: string; 
dbinitial3; string; 
dbinstitution3: string; 
dborderS: string; 

dbfiiame4: string; 
dblname4: string; 
dbinitial4; string; 
dbinstitution4: string; 
dborder4: string; 

dbfhameS; string; 
dblnameS; string; 
dbinitialS: string; 
dbinstitutionS: string; 
dborderS; string; 

dbfhameb: string; 
dblnameb; string; 
dbinitial6: string; 
dbinstitutionb; string; 
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dborder6; string; 

dbFName : string; 
dbLName : string; 
dblnitial: string; 
dbHonorific : string; 
dblnstitution ; string; 

implementation 

{$R ♦.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do 
begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 



{ Get the Paper Number Selected) 
try 

dPaper_Number;= CGIQueryString^; 
finally 

{ Send the html page ) 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers System Admin; Print an Article'); 
send ('</HEADxBODY bgcolor=FFFFFF>’); 

end; (try) 



{Determine if one Article or ALL Articles were requested) 
if dPaper Number = cginotfound then begin 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

sendhdr (*3’, 'Print to a file.’); 
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send('Please enter the name of the file into which you would like the Article Information 
placed. '); 

send('The file extension is not required, the file will be given the extension .Art after it is 
created. '); 

send('If an existing file name is used, the old file extension will be changed to .old and the 
new ’); 

send(’file"s extension will be .Art'); 

send(’<PxFORM ACTION="../cgi-win/P_Artfil.exe" METHOD="POST">‘); 
send(’<INPUT TYPE="hidden" Name="flag’’ Value='T’>’); 

send('<INPUT TYPE="hidden" Name="Paper_Number" Value="’ +dPaper_Number+ 
send(’<CENTERxB>File Name; </BxlNPUT TYPE="text" Name="filename” Size="25" 
Value="Title.Art"xBR>'); 

send(’<PxINPUT TYPE="submit" Value-'Print the Articles to this 
file"x/CENTERx/FORM><BR>’); 

sendhr; 

send(’<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value='T’>'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>’); 

end {Print ALL Articles} 

else begin 

{Print ONE Article} 

{ Get the Paper Record from the SUBMISSION Table } 
with Articles do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('Paper_Number').asstring o dPaperNumber do 
next; 

{ Retrieve record } 
dbtitle:= fieldByName ('title’).asstring; 
dbinvited:= fieldByName ('invited'), asstring; 
dbaccepted;= fieldByName ('accepted'), asstring; 
dbANumber;= fieldByName CContactAuthorNumber').asstring; 
dbSession:= fieldByName ('Session'). asstring; 
dbkeywordl:= fieldByName ('keyword 1'). asstring; 
dbkeyword2:= fieldByName ('keyword!'). asstring; 
dbkeyword3:= fieldByName ('keywords '). asstring; 
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CGIDBl.niemoToStringList (fieldbyname ('Abstract'), theabstract); 

dbcontactOrder;= fieldByName ('contactOrder').asstring; 

dborder2;= fieldByName ('order2').asstring; 
dbfiiame2:= fieldByName ('fhame2').asstring; 
dbinitiaI2:= fieldByName ('initial2').asstring; 
dblname2:= fieldByName ('lname2').asstring; 
dbinstitution2:= fieldByName ('institution2').asstring; 

dborder3;= fieldByName ('order3').asstring; 
dbfhame3:= fieldByName ('fiiame3').asstring; 
dbinitial3:= fieldByName ('initial3').asstring; 
dblname3;= fieldByName ('lname3').asstring; 
dbinstitution3;= fieldByName ('institution3').asstring; 

dborder4:= fieldByName ('order4').asstring; 
dbfname4;= fieldByName ('fhame4').asstring; 
dbinitial4;= fieldByName ('initial4').asstring; 
dblname4:= fieldByName ('lname4').asstring; 
dbinstitution4:= fieldByName ('institution4').asstring; 

dborderS” fieldByName ('order5').asstring; 
dbfiiame5;= fieldByName ('fhame5').asstring; 
dbinitiaI5:= fieldByName ('initial5').asstring; 
dblnameS” fieldByName ('lname5').asstring; 
dbinstitution5:= fieldByName ('institution5').asstring; 

dborder6;= fieldByName ('order6').asstring; 
dbfhame6;= fieldByName ('fhame6').asstring; 
dbinitiaI6;= fieldByName ('initial6').asstring; 
dblname6;= fieldByName ('lname6').asstring; 
dbinstitution6:= fieldByName ('institution6').asstring; 
end; {With Articles} 

{ Get Author Name information from the AUTHOR Table } 
with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName( ANumber').asstring o dbANumber do 
next; 
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{ Retrieve Author Name informatiou } 
dbFName := fieldByName(TName').AsString; 
dbLName ;= fieldByNameCLName’).AsString; 
dblnitial :== fieldByNameCInitiar) AsString; 
dbHonorific := fieldByName(’Honorific’).AsString; 
dblnstitution := fieldByName(lnstitution').AsString; 
close; 
end; 



{Print Article} 

sendhdr ('3', ’<PxBRxPxCENTER>' +dbtitle+ ’</CENTER>’); 

send(’<PxBRxB>Registration Number. </B>’ +dPaper_Number+ "); 
send (’<PxB>Keyword #1: </B>' +dbkeywordl+ "); 

if (dbKeyword2 o 'None') then send ('<PxB>Keyword #2; </B>' +dbkeyword2+ "); 
if dbKeywordS o 'None' then send ('<PxB>Keyword #3; </B>' +dbkeyword3+ "); 

{Determine Order of Authors } 

theAuthors” TStringList.create; 

{Send the Authors} 

send('<PxB>Authors;</Bxp>'); 

if dbContactOrder = " then sendC +dbFName+ ' ' +dblnitial+ ' ' +dbLName+ ', ' 
+dbInstitution+ ") 
else begin 

{initialize the stringlist} 
for i:= 0 to 6 do 

theAuthors.add('This string is not used'); 
dbContactOrderInt:= strtoint(dbContactOrder); 

theAuthors[dbContactOrderInt].- "+dbFName+ ' ' +dblnitial+ ' ' +dbLName+ ', ' 
+dbInstitution+ "; 

if db0rder2 o " then begin 
db0rder2Int;= strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:= "+dbFName2+ ' ' +dblnitial2+ ' ' +dbLName2+ ', ' 
+dbInstitution2+ "; 
end; 

if db0rder3 o " then begin 
db0rder3Int;= strtoint(dbOrder3); 
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theAuthors[dbOrder3Int]:= "+dbFName3+ ' ' +dblnitial3+ ' ' +dbLName3+ ' 
+dbInstitution3+ 
end; 

if dbOrder4 o " then begin 
db0rder4Int:= strtoint(dbOrder4); 

theAuthors[dbOrder4Int]:= "+dbFName4+ ’ ' +dblnitial4+ ' ' +dbLName4+ ' 
+dbInstitution4+ 
end; 

if dbOrderS o " then begin 
db0rder5Int;= strtoint(dbOrder5); 

theAuthors[dbOrder5Int];= "+dbFName5+ ' ' +dblnitial5+ ' ' +dbLName5+ ' 
+dbInstitution5+ "; 
end; 

if dbOrderb o " then begin 
db0rder6Int:= strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:= "+dbFName6+ ' ' +dblnitial6+ ' ' +dbLName6+ ' 
+dbInstitution6+ "; 
end; 

for i:= 1 to 6 do 

if theAuthors[i] o 'This string is not used* then send(" +theAuthors[i]+ '<BR>'); 
end; {else} 

{Send the Abstract} 

send C<PxBRxB>Abstract: </Bxbr>'); 
for i ;= 0 to theabstract. count - 1 do 
send( theabstract.strings[i] ); 

theabstract. free; {release the memory held by 'theabstract'} 
end; {BF One Article} 



send C</BODYx/HTML>’); 
closeStdout; 

closeApp( application ); { don't leave form around } 
end; {with CGIEnvDatal} 
end; {with FormCreate} 
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end. 
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Print Articles to file; P ArtflLexe 



unit Prartfil; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Articles: TTable; 

CGIEnvDatal: TCGBEnvData; 

CGIDB 1; TCGDDB; 

ArticlesPaper Numben TIntegerField; 

ArticlesTitle; TStringField; 

Articlesinvited; TStringField; 

ArticlesAccepted: TStringField; 

ArticlesContactAuthorNumber: TIntegerField; 

ArticlesSession; TStringField; 

ArticlesKeywordl; TStringField; 

ArticlesKeyword2: TStringField; 

ArticlesKeyword3: TStringField; 

ArticlesAbstract: TMemoField; 

ArticlesContactOrder: TStringField; 

ArticlesFName2: TStringField; 

ArticlesLName2; TStringField; 

Articleslnitial2; TStringField; 

ArticlesInstitution2; TStringField; 

ArticlesOrder2; TStringField; 

ArticlesFName3: TStringField; 

ArticlesLNameS: TStringField; 

ArticlesInitialS: TStringField; 

ArticlesInstitution3: TStringField; 

ArticlesOrderS: TStringField; 

ArticlesFName4: TStringField; 

ArticlesLName4; TStringField; 

Articleslnitial4; TStringField; 

ArticlesInstitution4: TStringField; 

ArticlesOrder4: TStringField; 

ArticlesFNameS: TStringField; 

ArticlesLNameS; TStringField; 

ArticlesInitialS: TStringField; 
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ArticlesInstitutionS; TStringField; 
ArticlesOrderS: TStringField; 
ArticlesFName6; TStringField; 
AiticlesLName6: TStringField; 
Articleslnitial6: TStringField; 
ArticlesInstitutionS; TStringField; 
ArticlesOrderS; TStringField; 

Authors: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

MyFileHandle; THandle; 

F; Textfile; 

theabstract ; TStringList; 
theAuthors ; TStringList; 

i: integer; 

dbContactOrderInt: integer; 
dbOrderlint; integer; 
dbOrderSint: integer; 
dbOrder4int: integer; 
dbOrderSint: integer; 
dbOrderSint; integer; 

dFileName, dFileNamein, dflag: string; 
PathFile, OldFile; string; 

dbPaper Number: string; 
dbtitle: string; 
dbinvited: string; 
dbaccepted: string; 
dbANumber: string; 
dbSession; string; 

dbkeywordl; string; 
dbkeyword2; string; 
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dbkeywordS; string; 
dbabstract; string; 
dbcontactOrder; string; 

dbfhame2: string; 
dblname2: string; 
dbinitial2; string; 
dbinstitution2; string; 
dborder2: string; 

dbfnameS: string; 
dblnameS: string; 
dbinitialS: string; 
dbinstitutionS: string; 
dborderS: string; 

dbfhame4; string; 
dblname4; string; 
dbinitiaW; string; 
dbinstitution4: string; 
dborder4: string; 

dbfiiameS; string; 
dblnameS: string; 
dbinitialS: string; 
dbinstitutionS: string; 
dborderS: string; 

dbfhameb: string; 
dblnameb: string; 
dbinitial6: string; 
dbinstitutionb: string; 
dborderb: string; 

dbFName : string; 
dbLName : string; 
dblnitial: string; 
dbHonorific : string; 
dblnstitution : string; 



implementation 
{$R *.DFM} 
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procedure TForml.FonnCreate( Sender; TObject); 
begin 

with CGIEnvDatal do 
begin 

webSiteENIFilenanie:=paramstr( I ); 
application.onException;=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

{ Send the html page } 

send C<HTMlxHEAD>’); 

SendTitle(’Asilomar Signals, Systems, and Computers System Admin: Print an Article'); 
send (’</KEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{ Get the FORM Data} 
dflag:= getsmallfield ('flag'); 
dFileNamein:= getsmallfield ('filename'); 



if dflag = T then begin 

{Print Articles} 

(Prepare File} 
try 

if ExtractFileExt(dFileNamein) = 'Art' then dFileName:= dFileNamein 
else dFileName;= ChangeFileExt("+dFileNamein+ ", '.Art'); 

PathFile;= 'c;\website'\htdocs\DownloadV +dFileName+"; 
if FileExists(PathFile) then begin 
(rename old file} 

OldFile := ChangeFileExt("+PathFile+ ", '.OLD'); 

(open New file} 
fileopen (dFileName, 0); 

(send notice} 

send(There was an existing file named '" +PathFile+- '" which was renamed to '" 
+01dFile+ '".'); 
end 

else MyFileHandle ;= filecreate(PathFile); 
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finally 

{Prepare File for Writing} 

AssignFile (F, PathFile); 
Append(F); 

end; {try} 



{Prepare Table} 

Articles, open; 

Aiticles.first; 

While not Articles.EOF do begin 
with Articles do begin 
{ Retrieve record } 

dbPaper_Number:= fieldByName (’PaperNuniber').asstring; 
dbtitle:= fieldByName ('title').asstring; 
dbinvited:= fieldByName ('invited') asstring; 
dbaccepted” fieldByName ('accepted'), asstring; 
dbANumber:= fieldByName ('ContactAuthorNumber').asstring; 
dbSession;= fieldByName ('Session'), asstring; 
dbkeywordl;= fieldByName ('keyword l').asstring; 
dbkeyword2;= fieldByName Ckeyword2'). asstring; 
dbkeyword3:= fieldByName ('keyword3').asstring; 

CGEDBl.memoToStringList (fieldbyname ('Abstract'), theabstract); 

dbcontactOrder;= fieldByName ('contactOrder'). asstring; 

dborder2:= fieldByName ('order2'). asstring; 
dbfhame2:= fieldByName ('fname2'). asstring; 
dbinitial2:= fieldByName ('initial2'). asstring; 
dblname2:= fieldByName ('lname2').asstring; 
dbinstitution2:= fieldByName ('institution2'). asstring; 

dborder3;= fieldByName ('orderS'). asstring; 
dbfhame3:= fieldByName ('fhame3').asstring; 
dbinitial3;= fieldByName ('initial3').asstring; 
dblname3:= fieldByName ('lname3').asstring; 
dbinstitution3:= fieldByName ('institution3'). asstring; 

dborder4:= fieldByName ('order4'). asstring; 
dbfname4;= fieldByName ('fiiame4').asstring; 
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dbinitiaI4;= fieldByName ('initial4').asstring; 
dblname4:= fieldByName ('lname4').asstring; 
dbinstitution4;= fieldByName ('institution4').asstring; 

dborder5:= fieldByName ('order5').asstring; 
dbfhame5:= fieldByName ('fhame5').asstring; 
dbinitial5:= fieldByName ('initials'), asstring; 
dblnameS:= fieldByName ('lname5').asstrmg; 
dbinstitutionS;= fieldByName ('institution5').asstring; 

dborder6:= fieldByName ('order6').asstring; 
dbfiiame6;= fieldByName ('fhame6').asstring; 
dbinitial6;= fieldByName ('initial6').asstring; 
dblname6;= fieldByName ('lname6').asstring; 
dbinstitution6:= fieldByName ('institution6').asstring; 
end; {With Articles} 

{ Get Author Name information from the AUTHOR Table } 
with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber’).asstring o dbANumber do 
next; 

{ Retrieve Author Name information } 

dbFName := fieldByNameCFName').AsString; 
dbLName := fieldByNameCLName').AsString; 
dblnitial ;= fieldByName(1nitial').AsString; 
dbHonorific ;= fieldByName('Honorific').AsString; 
dblnstitution := fieldByName('Institution').AsString; 
close; 

end; {with Authors} 



{Print Article data to file} 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' ' +dbtitle+ ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

WriteliKF, ’ '); 
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Writeln(F, ' '); 

Writeln(F, ' ’); 

Writeln(F, 'Registration Number: ' +dbPaper_Number+ "); 

Writeln(F, ' '); 

Writeln(F, "Keyword #1: ' +dbkeywordl+ "); 

Writeln(F, ' '); 

if dbKeyword2 o "None' then Writeln(F, Keyword #2: ' +dbkeyword2+ "); 
WriteIn(F, ' '); 

if dbKeywordS o *None' then WriteIn(F, Keyword #3: ' +dbkeyword3+ "); 
Writeln(F, ' ’); 

Writeln(F, ’ '); 

{Determine Order of Authors } 
theAuthors:= TStringList.create; 

(Send the Authors} 

Writeln(F, 'Authors:'); 

Writeln(F,' '); 

if dbContactOrder = " then Writeln (F, " +dbFName+ ' ' +dblnitial+ ' ' +dbLName+ 
+dbInstitution+ ") 
else begin 

(initialize the stringlist} 
for i:= 0 to 6 do 

theAuthors.add('This string is not used'); 
dbContactOrderInt:= strtoint(dbContactOrder); 

theAuthors[dbContactOrderInt];= "+dbFName+ ' ' +dblnitial+ ' ' +dbLName+ 
+dbInstitution+ "; 

if dbOrder2 o " then begin 
dbOrder2Int:= strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:= "+dbFName2+ ' ' +dblnitial2+ ' ' +dbLName2+ ' 
+dbInstitution2+ "; 
end; 

if dbOrderS o " then begin 
db0rder3Int:= strtoint(dbOrder3); 

theAuthors[dbOrder3Int]:= "+dbFName3+ ' ' +dblnitial3+ ' ' +dbLName3+ ' 
+dbInstitution3+ "; 
end; 

if dbOrder4 o " then begin 
dbOrder4Int;= strtoint(dbOrder4); 
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theAuthors[dbOrder4Int];= "+dbFName4+ ' ' +dblnitial4+ ' ' +dbLName4+ ' 
+dbInstitution4+ 
end; 

if dbOrderS o " then begin 
db0rder5Int:= strtoint(dbOrder5); 

theAuthors[dbOrder5Int]:= "+dbFName5+ ' ' +dblnitial5+ ' ' +dbLName5+ ' 
+dbInstitution5+ 
end; 

if dbOrderb o " then begin 
db0rder6Int;= strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:= "+dbFName6+ ' ' +dblnitial6+ ' ' +dbLName6+ ' 
+dbInstitution6+ "; 
end; 

for i:= 1 to 6 do 

if theAuthors[i] o 'This string is not used' then Writeln(F, " +theAuthors[i]+ '<BR>'); 

end; {else} 

{Send the Abstract} 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, 'Abstract: '); 

Writeln(F, ' '); 

for i := 0 to theabstract. count - 1 do 
Writeln(F, " +theabstract.strings[i]+ "); 

theabstract. free; {release the memory held by 'theabstract'} 

{Fill out the rest of the page} 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' ’); 
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Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F,’ '); 

Writeln(F,' ’); 

Writeln(F,’ ’); 

WriteIn(F, ' ’); 

Articles.next; 
end; {while} 

closeFile(F); 



end {If flag} 
else begin {bad flag} 

send('<centerxHl>Asilomar Conference on Signals, Systems, & 

Computers</H 1 x/center>'); 
sendhr; 

send('<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send (’<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to 
login again. </A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 
end; {if dflag else} 



sendhdr('3','The file has been generated!'); 

send('The file <B>'" +dFileName+ '"</B> is ready to be Downloaded.'); 
send('You may <A HREF="../download/' +dFileName+ '">Download the file by FTP 
now! </AxBR>'); 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 
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send('<PxCENTERxINPUT TYPE="submit'' VaIueF="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 

closeApp( application ); { don't leave form around } 
end; {with CGIEnvDatal} 
end; {with FormCreate} 



end. 
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Instructions / Options; P_Accept.exe 



unit Praccept; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGEEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

procedure FormCreate( Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

dflag; string; 
daction: string; 



implementation 
{$R *.DFM} 

procedure TFoiml.FonnCreate( Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{ Get fields from search page } 
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dflag;= getsmallfield ('flag'); 

daction;= getsmallfield ('action'); 

send C<HTM1XHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 

send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<A NAME=#top"xcenterxH2>Asilomar Conference System 
Administration</H2x/centerx/A>'); 

sendhr; 

send('<P>After review. Articles will have been accepted or rejected. This information is 
entered '); 

send('into the database in the "Database Functions" portion of the System Admin Options 
Page. '); 

send('If this information has not yet been entered, please go to the <A 
HREF="#bottom">Bottom of this Page</A> '); 

send('for a link to the System Admin Options Page.'); 

send('<P>There are three options in printing out an Article"s accept/reject letter:'); 

send('<PxA HREF="#one to screen">Print a letter for ONE specific Article to the 
SCREEN.</AxBR>'); 

send('<PxA HREF="#one to file">Print a letter for ONE specific Article to a 
FILE.</AxBR>'); 

send('<PxA HREF="#all to file">Print a letter for EVERY Article to a 
FILE.</AxPxBR><P>'); 



{print to screen option} 

send C<A NAME="one to screen"xHRx/AxP>'); 

sendhdr ('3', 'Printing a letter for ONE specific Article to the screen'); 

send ('Selecting this option will display the letter as an HTML page that can be '); 

send ('printed directly from most Browsers. <BR>'); 

send('<PxFORM ACTION="../cgi-win/P_accep2.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxBRxCENTERxlNPUT TYPE="submit" Value="Print ONE 
Article"x/CENTERx/FORM>'); 

send('<PxBRxA HREF=#top">Go back to the top of the page for more 
options</AxPxBR>'); 

{print to file option) 

send C<A NAME="one to file''xHRx/AxP>'); 

sendhdr ('3', Printing a letter for ONE specific Article to a file'); 
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send ('Selecting this option will print a letter to a file. You will provide a Name for the file 
and then be able '); 

send ('to FTP the file to your location. The file will contain ASCII text that can be 
manipulated by any '); 

send ('word-processor. <BR>'); 

send('<PxCENTERxFORM ACTION="../cgi-win/P_accep2.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send(’<PxINPUT TYPE="submit" Value="Print ONE Article"x/CENTERx/FORM>'); 

send('<PxBRxA HREF=#top">Go back to the top of the page for more 
options</AxPxBR>'); 

(print ALL to file option} 

send C<A NAME="all to file"xHRx/Axp>'); 
sendhdr ('3', Printing a letter for EVERY Article to a file'); 

send ('Selecting this option will print a letter for EVERY Article in the database to a single 
file. ’); 

send CEnter the file Name below. The file will contain ASCII text and can be retrieved by 
FTP. <BR>'); 

send ('The file extension is not required as it will be .Let after the operation is complete. '); 
send ('If an existing file name is used, the old file extension will be changed to .old and the 
new '); 

send ('file"s extension will be .Let'); 

send C<PxFORM ACTION="../cgi-win/P_accAll.exe" METHOD="POST">'); 
send C<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send ('<centerxB>File Name; </BxINPUT TYPE="text" Name="filename" Size="25" 
Value="AllAuths.Let"xBR>'); 

send C<PxINPUT TYPE="submit" Value- 'Print the letters to this 
file"x/CENTERx/FORM>'); 

send C<PxBRxA HREF=#top">Go back to the top of the page for more 
options</AxpxBR>'); 

(send Footer} 
sendhr; 

send C<PxBRxA NAME="bottom"x/A>'); 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send('<PxBRxP><BRxPxBR>'); 
send C</BODYx/HTML>'); 
closeStdout; 
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closeApp( application ); 
end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 
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Print all to a file: P AccAILexe 



unit Praccall; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel; TDataSource; 

Articles; TTable; 

Authors; TTable; 

procedure FormCreate( Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 

dFileName, dFileNamein: string; 

dflag; string; 

dPaper Number: string; 

dbANumber, dbTitle; string; 

dbFName ; string; 
dbLName ; string; 
dblnitial ; string; 
dbHonorific ; string; 
dblnstitution ; string; 
dbDepartment ; string; 
dbMailstop ; string; 
dbAddress Street ; string; 
dbAddress_City ; string; 
dbAddress State : string; 
dbAddress Zip : string; 
dbCountry : string; 
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dbPhoneJLocalNumber : string; 
dbPhone FaxNumber : string; 
dbEmail ; string; 

PathFile, OldFile; string; 
MyFileHandle: THandle; 

F; TextFile; 



implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename;=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

{ Get fields from search page } 
dflag;= getsmallfield ('flag'); 
dPaper_Number;= getsmallfield (PaperNumber'); 
dFilenamein;= getsmallfield ('filename'); 

{HTML Header) 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration<H2x/center>'); 
sendhr; 



{Check the flag) 
if dflag = T then begin 

{Prepare File) 
try 

if ExtractFileExt(dFileNamein) = 'Let' then dFileName:= dFileNamein 
else dFileName:= ChangeFileExt("+dFileNamein+ ", '.Let'); 
PathFile:= 'c:\website\DownloadV +dFileName+"; 
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if FileExists(PathFile) then begin 
{rename old file} 

OldFile := ChangeFileExt("+PathFile+ ", '.OLD'); 

{open New file} 
fileopen (dFileName, 0); 

{send notice} 

send('There was an existing file named +PathFile+ which was renamed to 
+01dFile+ 
end 

else MyFileHandle := filecreate(PathFile); 
finally 

{Prepare File for Writing} 

AssignFile (F, PathFile); 

Append(F); 

end; {try} 

{Prepare Table} 

Articles.open; 

Articles.first; 

While not Articles.EOF do begin 
{Retrieve Data} 

dbANumber” Articles, fieldbyname ('ContactAuthorNumber').asstring; 
dbTitle:= Articles.fieldbyname ('Title'), asstring; 

{Get Contact Author Data} 

With Authors do begin 

{Move to Record} 

open; 

first; 

while fieldbyname('ANumber').asstring o dbANumber do 
next; 

dbFName := fieldByNameCFName').AsString; 
dbLName ;= fieldByNameCLName').AsString; 
dblnitial := fieldByName('Initiar).AsString; 
dbHonorific := fieldByNameCHonorific').AsString; 
dblnstitution ~ fieldByName('Institution').AsString; 
dbDepartment := fieldByNameCDepartment').AsString; 
dbMailstop ;= fieldByName('Mailstop').AsString; 
dbAddress Street := fieldByName('Address_Street').AsString; 
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dbAddress City := fieldByName('Address_City').AsString; 
dbAddress State ;= fieldByName('Address_State’).AsString; 
dbAddress_Zip := fieldByName('Address_Zip').AsString; 
dbCountry ;= fieldByName(’Country’).AsStiing; 

dbPhoneLocalNumber := fieldByName(Phone_LocalNuinber'). AsString; 
dbPhoneFaxNumber := fieldByName('Phone_FaxNumber').AsString; 
dbEmail ;= fieldByNameCEmair).AsString; 
end; {with Authors} 

{Print Article data to file} 

Writeln(F,’ ’); 

Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F, ' ' +webdate(now)+ "); 

Writeln(F,’ '); 

WriteIn(F,’ '); 

WriteIn(F, ’ ' +dbHonorific+ ’ ' +dbFName+ ’ ’ +dblnitial+ ’ ' +dbLNamef ’<BR>'); 

WriteIn(F, ' ' +dbAddress_Street+ "); 

if dbCovintiy = USA' then Writeln(F, " +dbAddress_City+ ' +dbAddress_State+ ' ' 
+dbAddress_ZipH- ") 

else Writeln(F, " +dbAddress_City+ ’ +dbCountry+ '<BR>'); 

WriteIn(F,’ '); 

WriteIn(F,' '); 

WriteIn(F, Uear ' +dbHonorific+ ' ' +dbLName+ 

WriteIn(F,’ '); 

WriteIn(F, 'Thank you for your interest in submitting a Paper for presentation at the Thirtieth 
Annual '); 

Writeln(F, 'Asilomar Conference on Signals, Systems, & Computers.'); 

if Articles.fieldbyname ('accepted'). asstring = 'V then begin {Print accept} 

Writeln(F, 'We are pleased to inform you that your article, +dbTitle+ has been 
selected '); 

Writeln(F, 'for the conference. Please ensure you have a copy of the final article to give 

to the '); 

Writeln(F, 'conference for publication in the Proceedings. <BR>'); 

Writeln(F, ' '); 

Writeln(F, 'Thank you again, we"ll see you at the conference.'); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 
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Writeln(F, ’ ’); 
Writeln(F, ' 



Technical Program Chair'); 



{Fill out the rest of the page) 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

WriteIn(F,' '); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F, ' '); 

end {Print accept} 

else if Articles, fieldbyname ('accepted'), asstring = 'FT then begin {Print Reject} 

Writeln(F, 'We are sorry to inform you that your article, '" +dbTitle+ '" was not selected 
for this year"s '); 

Writeln(F, 'conference.<BR>'); 

Writeln(F,' '); 

Writeln(F, 'Thank you again for your interest. We hope to see you at the conference.'); 
Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F, ' Technical Program Chair'); 

(Fill out the rest of the page} 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F, ' '); 

Writeln(F,' '); 
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WriteIn(F,' '); 

Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F, ’ ’); 

end {else Print Reject} 

else Begin (send no accept/reject data} 

send('There is no Accept/Reject information on the article +dbTitle+ 
end; {bad accept/reject data} 

Articles, next; 
end; {while} 

end {If flag} 

else begin {bad flag} 

send(’<centerxHl>Asilomar Conference on Signals, Systems, & 

Computers</H 1 x/center>'); 
sendhr; 

send(’<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">try to 
login again.</A>’); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions. <BR>'); 
end; {if dflag else} 



sendhdr('3','The file has been generated!'); 

send('The file <B>'" +dFileName+ '"</B> is ready to be Downloaded.'); 
send('You may <A HREF=".. /download/ +dFileName+ '">Download the file by FTP 
now! </AxBR>'); 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
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end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 
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Select Article; P_Accep2.exe 



unit Praccep2; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1; TCGIDB; 

DataSourcel: TDataSource; 

Articles; TTable; 

Query 1; TQuery; 

QuerylTitle; TStringField; 

Query IPaperNumber; TIntegerField; 
procedure FormCreate(Sender; TObject); 
procedure CGIDB lSendingHotField(currentRecord: TDataset; 
var s; OpenString); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 



implementation 
{$R *.DFM} 

procedure TForml. FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do begin 

webSiteDSfIFilename;=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

send C<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers’); 
send (’</HEADxBODY bgcolor=FFFFFF>’); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

send('<P>Click on the Title of the article for which the letter should be created. <BR>'); 

with Query 1 do begin 

prepare; { Optimizes query } 

close; 

sql. clear; 

sql.add('Select * FROM Submissi'); 
sql.add( 'Order by Title ' ); 
open; 

send('<centerxp>'); 

CGIDB 1 .drawtable; {display all titles} 
send ('</center>'); 
end; { with Query 1} 



sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {FormCreate} 

procedure TForml. CGIDB lSendingHotField(currentRecord: TDataset; 

var s: OpenString); 
begin 

s:='<A HREF=". ,/cgi-win/P_Accep3 . exe?'+ 
cuirentrecord.fieldbyName(Paper_Number').AsString + 

+ currentrecord.FieldbyName('Title').AsString + '</A>'; 
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end; 

end. 



I 
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Choose screen or file; P_Accep3.exe 



unit PraccepS; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Articles; TTable; 

CGEEnvDatal; TCGIEnvData; 

CGIDB 1; TCGIDB; 

Authors; TTable; 

procedure FormCreate( Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
dPaper Number; string; 
dTitle; string; 



implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender; TObject); 
begin 

with CGDEnvDatal do begin 

webSiteINIFilename;=paramstr( 1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 
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sendPrologue; 

{Get Title of Article from search page } 
dPaper_Number:= cgiQueryString^; 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers’); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 
send(’<centerxH2>Asilomar Conference on Signals, Systems, & 
Computers</H2x/center>'); 
sendhr; 

{Retrieve the Title} 
with Articles do begin 

{Prepare the Table} 

open; 

first; 

{Move to proper record} 

While fieldbynameCPaper_Number').asstring o dPaperNumber do 
next; 

{Retrieve data} 

dT itle := fieldbyname('T itle'). asstring; 
end; {With Articles} 

{Send the Options} 

send('The accept/reject letter for the Article +dTitle+ may be printed to the screen or to a 
file. ’); 

{Send the "To the screen option"} 

sendhr; 

sendhdr ('3', 'Print to the screen.'); 

send(’<PxFORM ACTION="../cgi-win/P_accscr.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">’); 

send(’<INPUT TYPE="hidden" Name="Paper_Number" Value="' +dPaper_Number+ '">’); 
send('<PxCENTERxINPUT TYPE="submit" Value="Print the Article Accept/Reject letter 
to the Screen"x/CENTERx/FORM>'); 

{Send the "To a file option"} 
sendhr; 

sendhdr ('3', 'Print to a file.'); 

send(’Please enter the name of the file into which you would like the letter placed. '); 
send(’The file extension is not required as it will be .Let after the operation is complete. '); 
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send('If an existing file name is used, the old file extension will be changed to .old and the 
new'); 

send('file"s extension will be .Let'); 

send('<PxFORM ACTION="../cgi-win/P_accfil.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="£lag" Value=" !">'); 

send('<INPUT TYPE="hidden" Name="Paper_Number" Value='" +dPaper_Number+ '">'); 
send('<CENTERxB>File Name; </BxINPUT TYPE="text" Name="filename" Size="25" 
Value="Authors.Let"xBR>'); 

send('<PxINPUT TYPE="submit" Value="Print the Article Accept/Reject letter to this 
File"x/CENTERx/FORM>'); 

{Send Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {FormCreate} 

end. 
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Print to screen; P AccScr.exe 



unit Praccscr; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Articles; liable; 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1; TCGIDB; 

Authors; liable; 

procedure FormCreate(Sender; lObject); 
private 

( Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml; IForml; 
i;integer; 
dflag; string; 
dPaper Number; string; 
dbANumber, dblitle; string; 
dbFName, dbLName, dblnitial, dbHonorific; string; 
dblnstitution; string; 
dbDepartment; string; 
dbMailstop; string; 
dbAddress Street; string; 
dbAddress City; string; 
dbAddress State; string; 
dbAddress Zip; string; 
dbCountry; string; 
dbPhone LocalNumber string; 
dbPhone FaxNumber; string; 
dbEmail; string; 

dDate; string; 



468 



fimction GetDate (s: string) : string; 
implementation 
{$R *.DFM} 

ftmction GetDate (s.string) : string; 
const 

BlanksAllowed = 3; 
var 

i, blanksiinteger; 
temp: string; 

begin 

i.~ -1 ; {variable to step through strings} 

blanks ;= 0; {variable to count the blank spaces in the string) 

repeat 

i:= i + 1; 

if s[i] = ' ' then blanks := blanks + 1; {increment blank count) 
temp[i]:= s[i]; 

until (blanks = blanksAllowed) or (i=12); 

GetDate := temp; 
end; 



procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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send (’<HTMLxHEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</IffiADxBODY bgcoIor=FFFFFF>'); 

{Get fields from search page } 

dflag:= getsmallfield ('flag'); 

dPaperNumber.- getsmallfield (PaperNumbei'); 

{Get data from the Record in the Articles Table} 
with Articles do begin 

{Move to Record} 

open; 

first; 

while fieldbyname('Paper_Number').asstring o dPaper_Number do 
next; 

{Retrieve Data} 

dbANumber:= fieldbyname ('ContactAuthorNumber').asstring; 
dbTitle.- fieldbyname ('Title').asstring; 

{Get Contact Author Data} 

With Authors do begin 

{Move to Record} 

open; 

first; 

while fieldbyname('ANumber').asstring o dbANumber do 
next; 

dbFName := fieldByNameCFName').AsString; 
dbLName := fieldByNameCLName').AsString; 
dblnitial := fieldByName('Initiar).AsString; 
dbHonorific ;= fieldByName('Honorific').AsString; 
dblnstitution := fieldByName('Institution').AsString; 
dbDepartment = fieldByNameCDepartment').AsString; 
dbMailstop ;= fieldByNameCMailstop').AsString; 
dbAddress_Street ;= fieldByName('Address_Street').AsString; 
dbAddressCity ~ fieldByName('Address_City').AsString; 
dbAddress State := fieldByName('Address_State').AsString; 
dbAddressZip ;= fieldByName('Address_Zip').AsString; 
dbCountry ;= fieldByNameCCmmtry').AsString; 

dbPhoneLocalNumber ;= fieldByName(Thone_LocalNumber').AsString; 
dbPhone_FaxNumber ;= fieldByName(Phone_FaxNumber').AsString; 
dbEmail := fieldByNameCEmail'). AsString; 
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end; {with Authors} 



(Print out the letter) 

if fieldbyname ('accepted').asstring = 'Y' then begin {Print accept) 

dDate:= GetDate (webdate(now)); 
send(’<PxBRxP ALIGN=right> ’ + dDate + " ); 

send('<P>' +dbHonorific+ ' ' +dbFName+ ' ' +dblnitial+ ' ' +dbLName+ '<BR>'); 
send(" +dbAddress_Street+ '<BR>'); 

if dbCountry = 'USA' then send(" +dbAddress_City+ ' +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else send(" +dbAddress_City+ ' +dbCountry+ '<BR>'); 
send('<P>Dear ' +dbHonorific+ ' ' +dbLName^- ',<BR>'); 

send(Thank you for your interest in submitting a Paper for presentation at the Thirtieth 
Annual '); 

send(’Asilomar Conference on Signals, Systems, & Computers.'); 

send('<P>We are pleased to inform you that your article, +dbTitle+ has been 
selected '); 

send('for the conference. Please ensure you have a copy of the final article to give to the 

send('conference for publication in the Proceedings.<BR>'); 

send('<P>Thank you again, we"ll see you at the conference.'); 

send('<PxBRxpxBRxcenter>Technical Program Chair</center>'); 
end {Print accept) 

else if fieldbyname ('accepted'). asstring = 'N’ then begin {Print Reject) 

dDate:= GetDate (webdate(now)); 
send('<PxBRxP ALIGN=right> ' + dDate + " ); 

send('<P>' +dbHonorific+ ' ' +dbFName^- ' ' +dblnitial+ ' ' +dbLName+ '<BR>'); 
send(" +dbAddress_Street+ '<BR>'); 

if dbCountry = 'USA' then send(" +dbAddress_City+ ', ' +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else sendC +dbAddress_City+ ', ' +dbCounhy+ '<BR>'); 
send('<P>Dear ' +dbHonorific+ ' ' +dbLName+ ',<BR>'); 

send('Thank you for your interest in submitting a Paper for presentation at the Thirtieth 
Aimual '); 

send('Asilomar Conference on Signals, Systems, & Computers.'); 
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send('<P>We are sony to inform you that your article, +dbTitle+ was not selected 
for this year"s '); 

send('conference.<BR>'); 

send('<P>Thank you again for your interest. We hope to see you at the conference.'); 

send('<PxBRxPxBRxcenter>Technical Program Chair</center>'); 
end {else Print Reject} 

else Begin {send no accept/reject data} 

{HTML Header} 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

sendhdr('2', 'There is no Accept/Reject information on this article'); 
send('<PxFORM ACTION="../cgi-win/P_Accep2.exe" METHOD="POST">'); 
sendC<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<PxCENTERxINPUT TYPE—' submit" Value='Trint a letter for another 
article"x/CENTERx/FORM>'); 

{ HTML Footer} 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 

send('<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
end; {bad accept/reject data} 



end; {with Articles} 



send C</BODYx/HTML>'); 

closeStdout; 

closeApp( application ); 



end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 



472 



Print to file; P AccFil.exe 



unit Praccfil; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Articles: TTable; 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

Authors: TTable; 

procedure FormCreate( Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

dPath: string; 
dFileName; string; 
dflag; string; 
dPaper Number; string; 

dbANumber, dbTitle. string; 

dbFName ; string; 
dbLName ; string; 
dblnitial ; string; 
dbHonorific ; string; 
dblnstitution ; string; 
dbDepartment : string; 
dbMailstop ; string; 
dbAddress_Street : string; 
dbAddress City : string; 
dbAddress_State : string; 
dbAddress Zip ; string; 
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dbCountry ; string; 
dbPhone LocalNumber ; string; 
dbPhone FaxNumber : string; 
dbEmail : string; 

PathFile, dFileNamein, OldFile: string; 
MyFileHandle: THandle; 

F; TextFile; 



implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do begin 

webSiteINIFilename;=paramstr( 1 ); 
application.onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

{ Get fields from search page } 
dflag:= getsmallfield ('flag'); 
dFilenamein;= getsmallfield ('filename'); 

{HTML Header} 

send C<HTMLxHEAD>'); 

SendTitle('Asilomar Signals, Systems, and Computers'); 
send C</HEADxBODY bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 



{Check the flag} 
if dflag = T then begin 

{Prepare File} 

try 

if ExtractFileExt(dFiieNamein) = 'Let' then dFileName:= dFileNamein 
else dFileName;= ChangeFileExt("+dFileNamein+ ", '.Let'); 

PathFile := 'c:\website\DownloadV +dFileName+"; 
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if FileExists(PathFile) then begin 
{rename old file} 

OldFile ChangeFileExt("+PathFile+ ", '.OLD'); 

{open New file} 
fileopen (dFileName, 0); 

{send notice} 

send('There was an existing file named '" +PathFile+ '" which was renamed to 
+01dFilef 
end 

else MyFileHandle filecreate(PathFile); 
finally 

{Prepare File for writing} 

AssignFile (F, PathFile); 

Append(F); 

end; {try} 

{Print every Article} 
with Articles do begin 

{Prepare Table} 

open; 

first; 

{Move to Record} 

while fieldbyname(Taper_Number').asstring o dPaperJNumber do 
next; 

{Retrieve Data} 

dbANumber;= fieldbyname ('ContactAuthorNumber’).asstring; 
dbTitle;= fieldbyname ('Title').asstring; 
end; {with Articles} 

{Get Contact Author Data} 

With Authors do begin 

{Move to Record} 

open; 

first; 

while fieldbyname('ANumber').asstring o dbANumber do 
next; 

dbFName := fieldByNameCFName').AsString; 
dbLName ;= fieldByNameCLName'). AsString; 
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dblnitial ;= fieldByName('Initial').AsString; 
dbHonorific ;= fieldByNaine('Honorific').AsString; 
dblnstitution ;= fieldByNanie('Institution’). AsString; 
dbDepartment := fieldByNameCDepartmentO.AsString; 
dbMailstop ;= fieldByName(’Mailstop').AsString; 
dbAddress_Street ;= fieldByName(’Address_Street’). AsString; 
dbAddress_City ;= fieldByName(Address_City').AsString; 
dbAddress_State := fieldByName(’Address_State’). AsString; 
dbAddress_Zip ;= fieldByName('Address_Zip'). AsString; 
dbCountry ;= fieldByName('Country'). AsString; 

dbPhone_LocalNumber ;= fieldByName(Phone_LocalNumber’). AsString; 
dbPhoneJFaxNumber := fieldByName(PhoneJFaxNiunber'). AsString; 
dbEmail := fieldByNameCEmair). AsString; 
end; {with Authors} 

(Print Article data to file} 

Writeln(F,’ '); 

Writeln(F,’ ’); 

Writeln(F,' ’); 

Writeln(F, ' ' +webdate(now)+ "); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F, ' ’ +dbHonorific+ ' ' +dbFName+ ’ ' +dblnitial+ ' ' +dbLName+ '<BR>'); 

Writeln(F, ' ' +dbAddress_Street+ "); 

if dbCountiy = TJSA' then Writeln(F, " +dbAddress_City+ ' +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else Writeln(F, " +dbAddress_City+ ’ +dbCountry+ '<BR>'); 

Writeln(F,’ ’); 

Writeln(F,’ ’); 

Writeln(F, Dear ' +dbHonorific+ ' ’ +dbLName+ 

Writeln(F,' ’); 

Writeln(F, Thank you for your interest in submitting a Paper for presentation at the Thirtieth 
Annual ’); 

Writeln(F, 'Asilomar Conference on Signals, Systems, & Computers.'); 

if Articles, fieldbyname ('accepted').asstring = 'T then begin {Print accept} 

Writeln(F, 'We are pleased to inform you that your article, '" +dbTitle+ '" has been 
selected '); 

Writeln(F, 'for the conference. Please ensure you have a copy of the final article to give 

to the '); 

Writeln(F, 'conference for publication in the Proceedings.<BR>'); 

Writeln(F,' '); 



476 



Writeln(F, 'Thank you again, we"ll see you at the conference.'); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' '); 

Writeln(F, ' Technical Program Chair'); 

{Fill out the rest of the page} 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F, ' '); 

end {Print accept} 

else if Articles, fieldbyname ('accepted'). asstring = 'N' then begin {Print Reject} 

Writeln(F, 'We are sorry to inform you that your article, '" +dbTitle+ '" was not selected 
for this year"s '); 

Writeln(F, 'conference. <BR>'); 

Writeln(F,' '); 

Writeln(F, 'Thank you again for your interest. We hope to see you at the conference.'); 
Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F, ' Technical Program Chair'); 

{Fill out the rest of the page} 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 
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Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,’ '); 

Writeln(F,' ’); 

Writeln(F,' '); 

end (eke Print Reject} 

else Begin (send no accept/reject data) 

send('There is no Accept/Reject information on the article +dbTitle+ 
end; (bad accept/reject data} 

end (If flag} 

else begin (bad flag} 

send('<centerxH2>Your password was <strong>not accepted! !</strongx/H2x/center>'); 
send C<P>Please ensure that you are authorized to access this information.'); 
send C<P>If you made an error, then please <A HREF="../prototype/admin20.htm">tiy to 
login again.</A>'); 

send C<P>If you are not authorized to access this information, please note that a log is'); 
send ('maintained that includes your URL. You may be subject to civil and/or criminal '); 
send ('prosecution for your actions.<BR>'); 
end; (if dflag eke} 



sendhdr('3','The file has been generated!'); 

send('The file <B>'" +dFileName+ '"</B> is ready to be Downloaded.'); 
send('You may <A HREF=" . /download/* +dFileName+ '">Download the file by FTP 
now!</AxBR>'); 
sendhr; 

send('<PxFORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" 1 ">'); 

sendC<PxCENTERxINPUT TYPE="submit" Value="Retum to the System Admin 
Options page"></CENTERx/FORM>'); 
send C</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
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end; {with cgiEnvDatal do} 
end; {FormCreate} 
end. 
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Print Initiation: P AbsCatexe 



unit Prabscat; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGEEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Articles: TTable; 

Authors: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate( Sender: TObject); 
begin 



with CGIEnvDatal do begin 

webSiteINIFilename:=paramstr( 1 ); 
application. onException:=cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

send C<HTMLxHEAD>’); 
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SendTitle('Asilomar Signals, Systems, and Computers'); 
send (’</HEADxBODY bgcolor=FFFFFF>'); 

end; 



with cgiEnvDatal do begin 

send('<centerxH2>Asilomar Conference System Administration</H2x/center>'); 
sendhr; 

send(’<P>This fimction Prints the Abstract Catalog, organized by sessions to the file named 
below.*); 

send('Changes to File Name can be made below. If the file does not exist, it will be 
created.'); 

send('<P>Running this routine may take a long time.<BR>'); 

send('<centerxFORM ACTION="../cgi-win/P_absca2.exe" METHOD="POST">*); 
send('<INPUT TYPE="hidden" Name="flag" Value="l">'); 
send('<B>File Name; </BxINPUT TYPE="text" Name="filename" 

V alue=" Abstract.Cat"xBR>'); 

send('<PxCENTERxINPUT TYPE="submit" Value="Print the Abstract Catalog 
now"x/CENTERx/FORMxBR>'); 

sendhr; 

send('<FORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name="flag" Value=" !">'); 

send(’<PxCENTERxlNPUT TYPE="submit" Value="Retum to the System Admin 
Options page"x/CENTERx/FORM>'); 
send C</BODY></HTML>'); 
closeStdout; 
closeApp( application ); 

end; {with cgiEnvDatal do} 

end; {FormCreate} 

end. 
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Print Confirmation: Prabsca3.exe 



unit PrabscaS; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DBTables, DB, Cgidb, Cgi; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Articles: TTable; 

CGIEnvDatal: TCGEnvData; 

CGIDBl; TCGIDB; 

Authors. TTable; 

AuthorsANumber: TIntegerField; 

AuthorsLName: TStrin^ield; 

AuthorsFName: TStringField; 

Authorsinitial: TStringField; 

AuthorsHonorific: TStringField; 

Authorsinstitution: TStringField; 

AuthorsDepartment: TStringField; 

AuthorsMailstop: TStringField; 

AuthorsAddress_Street: TStringField; 

AuthorsAddress_City: TStringField; 

AuthorsAddress_State: TStringField; 

AuthorsAddress_Zip: TStringField; 

AuthorsCountry: TStringField; 

AuthorsPhone LocalNumber; TStringField; 
AuthorsPhone_FaxNumber: TStringField; 

AuthorsEmail: TStringField; 

Query 1: TQuery; 

ArticlesPaper Number: TIntegerField; 

ArticlesTitle: TStringField; 

Articlesinvited: TStringField; 

ArticlesAccepted: TStringField; 

ArticlesContactAuthorNumber: TIntegerField; 

ArticlesSession: TStringField; 

ArticlesOrderlnSession: TIntegerField; 

ArticlesPresentationTime: TStringField; 

ArticlesKeywordl: TStringField; 

ArticlesKeyword2: TStringField; 

ArticlesKeyword3: TStringField; 
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ArticlesAbstract; TMemoField; 
ArticlesContactOrder: TStringField; 
ArticlesFName2; TStringField; 
ArticlesLName2: TStringField; 
Articleslnitial2; TStringField; 
AjticlesInstitution2; TStringField; 
ArticlesOrder2: TStringField; 
ArticlesFNameS; TStringField; 
ArticlesLName3: TStringField; 
ArticlesInitialS: TStringField; 
ArticlesInstitutionS; TStringField; 
ArticlesOrderS; TStringField; 
ArticlesFName4; TStringField; 
ArticlesLName4; TStringField; 
Articleslnitial4: TStringField; 
ArticlesInstitution4; TStringField; 
ArticlesOrder4; TStringField; 
ArticlesFNameS; TStringField; 
ArticlesLNameS: TStringField; 
ArticlesInitialS: TStringField; 
ArticlesInstitutionS; TStringField; 
ArticlesOrderS; TStringField; 
ArticlesFName6; TStringField; 
ArticlesLName6; TStringField; 
Articleslnitial6; TStringField; 
ArticlesInstitution6; TStringField; 
ArticlesOrder6: TStringField; 

Query lPaper_Number: TIntegerField; 
QuerylTitle; TStringField; 

Query 1 Invited; TStringField; 

Query 1 Accepted; TStringField; 

Query 1 ContactAuthorNumber; TIntegerField; 
Query 1 Session: TStringField; 

Query 1 OrderInSession; TIntegerField; 

Query IPresentationTime; TStringField; 

Query 1 Keyword 1: TStringField; 

Query lKeyword2; TStringField; 

Query 1 Keywords; TStringField; 

Query 1 Abstract: TMemoField; 

Query IContactOrder; TStringField; 

Query lFName2; TStringField; 
QuerylLName2; TStringField; 

Query 1 Ini tial2; TStringField; 
QuerylInstitution2; TStringField; 

Query 10rder2: TStringField; 
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Query IFNameS; TStringField; 

Query ILNameS: TStringField; 

Query 1 Initials: TStringField; 

Query 1 Institutions: TStringField; 

Query 1 Orders : TStringField; 

Query lFName4: TStringField; 

Query lLName4: TStringField; 
Queryllnitial4: TStringField; 

Query lInstitution4: TStringField; 
QuerylOrder4: TStringField; 
QuerylFNameS: TStringField; 
QuerylLNameS: TStringField; 

Query 1 Initials: TStringField; 

Query 1 Institutions: TStringField; 
QuerylOrderS: TStringField; 
QuerylFName6: TStringField; 

Query lLName6: TStringField; 

Query llnitial6: TStringField; 

Query lInstitution6: TStringField; 

Query 10rder6: TStringField; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml: TForml; 

MyFileHandle: THandle; 

F: Textfile; 

theabstract : TStringList; 
theAuthors : TStringList; 

i: integer; 

dbContactOrderInt: integer; 
dbOrderSint: integer; 
dbOrderSint: integer; 
dbOrder4int: integer; 
dbOrderSint: integer; 
dbOrderbint: integer; 
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dFileName, dFileNamein, dflag; string; 
PathFile, OldFile: string; 

dbPaper Number: string; 
dbtitle; string; 
dbinvited; string; 
dbaccepted; string; 
dbANumber; string; 
dbSession; string; 
dbSessOrder: string; 
dbkeywordl : string; 
dbkeyword2: string; 
dbkeywordS; string; 
dbabstract: string; 
dbcontactOrder: string; 

dbfhame2; string; 
dblname2: string; 
dbinitial2: string; 
dbinstitution2; string; 
dborder2: string; 

dbfnameS: string; 
dblnameS: string; 
dbinitiaB; string; 
dbinstitutionS: string; 
dborderS: string; 

dbfhame4: string; 
dblname4: string; 
dbinitiaW: string; 
dbinstitution4: string; 
dborder4; string; 

dbfhameS: string; 
dblnameS; string; 
dbinitialS: string; 
dbinstitutionS: string; 
dborderS; string; 

dbfnameb: string; 
dblnameb; string; 
dbinitial6; string; 
dbinstitutionb: string; 
dborderb; string; 
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dbFName : string; 
dbLName : string; 
dblnitial; string; 
dbHonorific ; string; 
dblnstitution ; string; 



implementation 
($R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do 
begin 

webSiteINIFilename;=paramstr( 1 ); 

appl ication. onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{ Send the html page } 

send C<HEAD>’); 

SendTitle('Asilomar Signals, Systems, and Computers System Admin: Print an Article'); 

send ('</HEAD>'); 

send('<center> 

Asilomar Conference System Administration 

</center>'); 

sendhr; 



{ Get the FORM Data} 
dflag:= getsmallfield ('flag'); 
dFileNamein:= getsmallfield ('filename'); 



if dflag = '1' then begin 



try 

if ExtractFileExt(dFileNamein) = '.Cat' then dFileName:= dFileNamein 
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else dFileName:= ChangeFileExt("+dFileNamein+ ", '.Cat'); 

PathFile” 'c:\website\DownloadV +dFileName+"; 
if FileExists(PathFile) then begin 
{rename old file} 

OldFile := ChangeFileExt("+PathFile+ ", '.OLD'); 
renamefile(PathFile, OldFile); 

{send notice} 

send(There was an existing file named +PathFile+ '" which was renamed to '" 
+01dFile+ '".'); 
end; 

MyFileHandle ;= filecreate(PathFile); 
finally 

{Prepare File for Writing} 

AssignFile (F, PathFile); 

Append(F); 

end; {try} 



With Queryl do begin 
{prepare;} 
close; 
sql.clear; 

sql.add('Select * FROM Submissi WHERE Accepted = "Y" Order by Session, 
OrderInSession'); 
open; 

first; 



While not Queryl. EOF do begin 



{ Retrieve record } 

dbPaper_Number;= fieldByName ('Paper_Number').asstring; 
dbtitle;= fieldByName ('title').asstring; 

(dbinvited:= fieldByName ('invited'). asstring;} 
dbaccepted.- fieldByName ('Accepted'). asstring; 
dbANumber;= fieldByName ('ContactAuthorNumber').asstring; 
dbSession:= fieldByName ('Session').asstring; 
dbSessOrder:=fieldbyname COrderInSession'). asstring; 
dbkeywordl” fieldByName ('keyword 1'). asstring; 
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dbkeyword2:= fieldByName ('keyword2').asstring; 
dbkeyword3:= fieldByName ('keywords ').asstring; 

CGIDBl.memoToStringList (fieldbyname ('Abstract'), theabstract); 

dbcontactOrder:= fieldByName ('contactOrder').asstring; 

dborder2;= fieldByName ('order2').asstring; 
dbfhame2;= fieldByName ('fname2').asstring; 
dbinitial2:= fieldByName ('initial2').asstring; 
dblname2:= fieldByName ('lname2').asstring; 

(dbinstitution2:= fieldByName ('institution2').asstring;} 

dborder3:= fieldByName ('order3').asstring; 
dbfhame3:= fieldByName ('fname3').asstring; 
dbinitial3:= fieldByName ('initiaJ3').asstring; 
dblname3:= fieldByName ('lname3').asstring; 

(dbmstitution3:= fieldByName ('institution3').asstring;} 

dborder4:= fieldByName ('order4').asstring; 
dbfhame4;= fieldByName ('fname4').asstring; 
dbinitial4;= fieldByName ('initial4').asstring; 
dblname4:= fieldByName ('lname4').asstring; 

(dbinstitution4:= fieldByName ('institution4').asstring;} 

dborder5:= fieldByName ('order5').asstring; 
dbfhame5;= fieldByName ('fname5').asstring; 
dbinitial5;= fieldByName ('initials'), asstring; 
dblnameS:= fieldByName ('lname5').asstring; 

{dbinstitutionS;= fieldByName ('institution5').asstring;} 

dborder6:= fieldByName ('orderb'). asstring; 
dbfiiame6:= fieldByName ('fhame6').asstring; 
dbinitial6:= fieldByName ('initial6').asstring; 
dblname6:= fieldByName ('Inameb'). asstring; 

(dbinstitution6;= fieldByName ('institutionb'). asstring;} 

{ Get Author Name information from the AUTHOR Table } 

with Authors do begin 

{ Move to proper record} 

open; 

first; 

while fieldbyName('ANumber').asstring o dbANumber do 
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next; 



{ Retrieve Author Name information } 
dbFName := fieldByName(TName’). AsString; 
dbLName ~ fieldByName(’LName'). AsString; 
dblnitial := fieldByName(’Initiar).AsString; 
dbHonorific := fieldByNameCHonorific').AsString; 
dblnstitution := fieldByNameCInstitution'). AsString; 
close; 

end; {with Authors} 



{Print Article data to file} 

Writeln(F, ' '); 



Writeln(F, ’ 
Writeln(F, ’ 
Writeln(F, ’ 
Writeln(F, ’ 
Writeln(F, ’ 
Writeln(F, ’ 
Writeln(F, ’ 
Writeln(F, ’ 



■+dbtitle+’ '); 



y, 

•); 



WriteIn(F, 'Registration Number: ' +dbPaper_Number+ "); 

Writeln(F, ’ ’); 

Writeln(F, 'Keyword #1: ' +dbkeywordl+ "); 

Writeln(F, ’ y 

if dbKeyword2 o None' then Writeln(F, 'Keyword #2; ' +dbkeyword2+ "); 
Writeln(F, ' '); 

if dbKeywordS o None' then Writeln(F, 'Keyword #3; ' +dbkeyword3+ "); 
Writeln(F, ' '); 

Writeln(F, ' '); 



{Determine Order of Authors } 

theAuthors:= TStringList. create; 

{Send the Authors} 

Writeln(F, 'Authors:'); 

Writeln(F,' ’); 

if dbContactOrder = " then Writeln (F, " +dbFName+ ' ' +dblnitial+ ’ ' +dbLName+ ', ' 
+dbInstitution+ ") 
e.-oe begin 

{initialize the stringlist} 
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for i:= 0 to 6 do 

theAuthors.add(This string is not used'); 
dbContactOrderInt:= strtoint(dbContactOrder); 

theAuthors[dbContactOrderInt];= "+dbFName+ ' ' +dblnitial+ ' ' +dbLName+ ' 
+dbInstitution+ 

if dbOrder2 o " then begin 
db0rder2Int:= strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:= "+dbFName2+ ' ' +dblnitial2+ ' ' +dbLName2+ 
end; 

if dbOrderS o " then begin 
db0rder3Int:= strtoint(db0rder3); 

theAuthors[dbOrder3Int]:= "+dbFName3+ ' ' +dblnitial3+ ' ' +dbLName3+ "; 
end; 

if dbOrder4 o " then begin 
db0rder4Int;= strtoint(dbC)rder4); 

theAuthors[dbOrder4Int];= "+dbFName4+ ' ' +dblnitial4+ ' ’ +dbLName4+ "; 
end; 

if db0rder5 o " then begin 
db0rder5Int;= strtoint(dbOrder5); 

theAuthors[dbOrder5Int]:= "+dbFName5+ ’ ' +dblnitial5+ ' ' +dbLName5+ "; 
end; 

if dbOrderb o " then begin 
db0rder6Int;= strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:= "+dbFName6+ ' ' +dblnitial6+ ’ ' +dbLName6+ "; 
end; 

for i;= 1 to 6 do 

if theAuthors[i] o 'This string is not usecT then Writeln(F, " +theAuthors[i]+ ' 



end; (else) 

(Send the Abstract} 

Writeln(F, ' '); 

WriteIn(F, ' '); 

Writeln(F, 'Abstract; '); 

Writeln(F,' '); 

for i := 0 to theabstractxount - 1 do 
Write(F, ” +theabstract[i]+ "); 
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theabstract.free; {release the memory held by ’theabstract’} 



(Fill out the rest of the page} 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,’ '); 

Writeln(F,' '); 

Writeln(F,’ ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,' '); 

Writeln(F,' ’); 

Writeln(F,’ ’); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,' '); 

Writeln(F,’ '); 

Writeln(F,’ '); 

Writeln(F, ' '); 

next; 

end; (while query 1} 
close; 

end; (with query 1} 



closeFile(F); 



end {If flag} 



else begin {bad flag} 
send('<center> 
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Asilomar Conference on Signals, Systems, & Computers 



</center>'); 

sendhr; 

send(’<center> 

Your password was <strong>not accepted! !</strong> 

</center>'); 
send (' 

Please ensure that you are authorized to access this information.’); 
send (’ 

If you made an error, then please try to login again.'); 
send (’ 

If you are not authorized to access this information, please note that a log is'); 

send (’maintained that includes your URL. You may be subject to civil and/or criminal '); 
send (’prosecution for your actions. 

end; {if dflag else} 



sendhdr(’3’,’The file has been generated!’); 

send(’The file "’ +dFileName+ ’" is ready to be Downloaded.’); 
send(’You may Download the file by FTP now! 

sendhr; 

send(’ 

<FORM ACTION="../cgi-win/Adminpwd.exe" METHOD="POST">’); 
send(’<INPUT TYPE="hidden" Name="flag" Value="l">’); 
send(’ 

<CENTERxINPUT TYPE="submit" VaJue="Retum to the System Admin Options 
page"x/CENTERx/FORM>’); 
send C</BODY>’); 
closeStdout; 

closeApp( application ); { don’t leave form around } 
end; { with CGIEnvData 1 } 
end; {withFormCreate} 
end. 
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